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MODULE VMOUNT ( 


BEGIN 


' 
eee eee eee ee AeeeAKeeRReAARHAHHH TREKKA Kee eeAKeeeeeekeKeteeeeeeeeeeteeeere 


‘@ * 
!® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'* DIGITAL oe te ay CORPORATION, MAYNARD, MASSACHUSETTS. ® 
os ALL RIGHTS RESERVED ® 
. ® 
!® THIS SOFTWARE a FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ha e 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bce SE AND WITH THE * 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER * 
!* COPIES THEREOF a" NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. . 
‘e * 
ie is ot rie IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. e 
'® ® 
!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
: 

s cdebaessemaeieantdiedbabenemenentinaiibiieasenbbemmmehemainnimneidiiiams 
‘ee 

' 

FACILITY: MOUNT Utility Structure Levels 1 & 2 

i ABSTRACT: 


This is the main routine of the MOUNT utility. It provides the 
eneral control flow of the MOUNT command and contains most of 
he base data structures. 

i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 5-Sep-1977 16:58 

i MODIFIED BY: 

V04-002 HHO0056 Hai Huan 1O<Se9~ 1984 
ng 


pyperess outputting VOL 1AV error messages dur 
VOLINV retries. 


<< 


-742 
TER: CHOUNT. SRCJVMOUNT. 832; 


vou~on VS$S0r1984 91:00:88 YIMCIABUS4=42 5595762 oman. 08228™ 


$ 28 : 2% v04-001 HHOO0SS Hai Huang 06-Sep-1984 

3 1! Send mount/cluster A. with operator ese tet 

: ey bet : disabled. 

:; 6 O6¢ | i v03-035 cDs0005 Christian D. Saether 29-Aug-1984 

3 6 65 1! Call STAND_ALONE_REBUILD routine which 

3 ¢ bee : only do rebuild Tf necessary at that time. 

; 66 066 1} V03-034 HH0043 Hai Huang 07-Aug-1984 

; a4 be : } Welt a while before retrying IOCSSEARCH. 

: 9 0069 1 i V03-033 HHO042 Hai Huang 27-Jul-1984 

; a Ooot ! Clear the giskel” locke storage area rn run time. 

, =. 3 0078 1} v03-032 HH0041 uang dutst -1984 

3 Nf, Booa : Remove REQUIRE fans: VASLIB. 0B) INOUNTHSG.b 

tag: 0075 1} v03-031 HH0037 Hai Huang 12-Jul-1984 

; 7 Bore 1! Make the Label book nodesspeciitic, i.@. make the CSID 
; a fA : part of the Label Lock. 

: 79 0079 1! V03-030 HHO036 Hai Huang 11-Jul-1984 

; 80 0080 1! Send the mount request cluster wide even if the volume 
: He 49 ' is already mounted on the local node. 

: 8 bas 1 i V03-029 HHO034 Hai npane 09-Jul-1984 

; ae Bee } Add yet another Sereton to serialize shared mounts. 
: 86 0086 | v03-028 HH0032 Hai Huang 05-Jul-1984 

; OT it 1! For private mounts, transfer device ownership to the top 
; ey 44 ! level process in the process tree. 

: 90 0090 1! V03-027 HHO024 Hai Huang 18-Jun-1984 

5 91 0091 1! Do not call 1ocstock” DEV to test mode of the device lock, 
; B28 ! as this routine could corrupt the lock value block. 

> 94 0094 1! v03-026 HHO021 Hai Huang 14-May-1984 

3.6 6S 9 1! Refine HHOO19 to mark the device as allocated after 

; &® 38 1! 10 SCSSEARCH while holding the 1/0 database mutex. Also, 
3 44 sad ' reject private mounts if IOCSSEARCH failed. 

: 99 6099 1 v03-025 HHO019 Hai H ang 07-May-1984 

; 100 100 1! Properly inconteck be mee aneous mounts in a cluster- 
3 13) 19) ! } environment. 

: 198 1 4 1! v03-024 HHO016 Hai 1, 23-Apr-1984 

3 Oe : : : Get the device name "4 IOCSSEARCH failed. 

: 1 1 1 v03-023 HHO015 Hai Huang 20-Apr-1984 

; 10 1 1! Get IOCSSEARCH to return the lock value block of the 
3 138 : 3 ! device lock. 

: 110 110 1! v03-022 HHOO10 Hai Huang 30-Mar-1984 

; 1 13 ' Fix generic mount. 

: 118 118 1 i V03-021 HHO004 Hai Huang 09-Mar-1984 

3 («194 1144 #1! Add cluster-wide mount support. 


on 
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v04-002 13-868: 7 9:90:38 DISKSVMSMASTER: MOUNT. SRCJVMOUNT B32; 3° (1) 
v03-020 HHO002 Hai Huang 02-Feb-1984 
Add job-wide mount support. 
V03-019 ACG0369 Andrew C. Goldstein 8-Nov-1983 11:24 
Don't issue IO$_AVAILABLE on mount failure of mounted disk 
V03-018 CDS0004 Christian D, Saether 13-Sep-1983 
Only clear VALID for tapes in the main error handler. 


Move the CLEAR_VALID routine here from RDHOME as it 
is only referenced here now. 
v03-017 TCMO003 Trudy C. Matthews 07-Sep-1983 
When converting the exclusive device lock to a shared lock, 
make sure it is still system-owned. 


TCMO002 Trudy C. Matthews 01-Sep-1983 
Make allocating a device followed by mounting a shared 
volume on that device work forresety (i.e. deallocate 
the device and convert the lock to CR mode). 


v03-015 CDS0003 Christian D. Saether 5-Aug-1983 
Add cluster fons tetency checking routines. 
Add status block to GETDVIW call so that wait 
always works correctly. 


CDS0002 Christian D. Saether 53-Aug-1983 
Remove the device ref count check prior to assigning 
the channel (from tcm0001) as it was racy. 


v03-013 S$TJ3015 Steven T. Jeffreys 30-Jul-1983 
Fix Link-time truncation error. 


v03-012 TCM0001 vouey C. Matthews 28-Jul-1983 
Re-write the MOUNT VOLUME routine so that it uses a 
mount interlock rather than temporarily of ge hy the 
volume. Also ensure that cluster-wide locks are taken 
out in the appropriate mode (EX for private mounts and 
CR for shared mounts). 


v03-011 STJ3113 Steven T. Jeffreys, 26-Jul-1983 
Moved ACTIVATE_JOURNAL and helper routines to their own 
module, RUJMAN. 


v03-010 STJ3111 Steven T. Jeffreys, 18-Jul-1983 
When the privileges are amplified, take petne to include 
those privileges that are in the second ongword of the 
privilege mask, notably PRMJNL privilege. 


vO3-009 DMW4045 DMWalp 7-Jun-1983 
Remove (S)LOG_Entry 


v03-008 CDS0001 Christian D. Saether 28-May-1983 
Tolerate allocation failure for F116 mounts. 


v03-007 STJ3102 Steven T. Jeffreys, 25-May-1983 
- Add call to S$CREJNL. 
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vO3-006 MMD0115 Meg Dumont, 
Add OPT_OVR_VOLO to override options set 


$TJ3061 Steven T, Jeffreys, 08-Mar-1983 
- Grant user PSWAPM privilege. eeded to create ACP. 
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9-Mar-1983 0:39 


$TJ50311 Steven T. Jeffreys, 11-Feb-1983 
= Make all uses of PHYS_NAME indexed by DEVICE_INDEX 
Ensure DEVICE_INDEX is not reset on retry 

Remove references to FIRST_CHANNEL. 

Make CALLERS_ACMOD a global cell containing the 
caller's accéss mode. 

snared Gey ce allocation/deallocation logic. 

Moved routine DEALLOCATE_DEVICE to ASSIST. 


$1J3037 Steven T. Jeffreys, 14-0¢t-1982 
If the mount attempt fails, free up the drive(s) via 
an IO$_AVAILABLE $qio. 


KTAO103 Kerbey T. Altmann 29-Jun-1982 
Change a register to NopRe SERVE in DEALLOCATE_DEVICE. 
$TJ0252 Steven T. Jeffreys, 03-Apr-1982 


- Allocate devices in the access mode of the caller. 
- Check allocation return status and terminate the mount 
gtteney if the specified device does not exist. 
- Manually deallocate shared disk volumes after 
they are mounted. This is necessitated by a 
change to $DALLOC such that mounted volumes may 
no longer be deallocated. 


v02-020 St s0eey Steven T. Jeffreys, 01-Mar-1982 


et inhibit message bit in the exit status code 
if the message text was written via SPUTMSG. 


v02-019 S$TJ0190 Steven T. Jeffreys, 02-Feb-1982 


SCOooooo°oc[ecKe 


v02-018 $TJ0170 S 


PIP IFPIPIPIPDPIPIPIPDIIPIA INIA YD at st wet st tk kk kk kk tk th th 


- Zero OWN and GLOBAL storage to guaranty restartablity. 


teven T. Jeffreys, 13-Jan-1982 
More work for SMOUNT suoport. 


v02-017 RNGOOO!1 fod N. Gamache 05-Jan-1982 


PIFIFIPIFIFIPIPIPIA IIIA IPP I/II IAI AY ct ri i eed ed ed eed 


Declare MOUNT_OPTIONS to be external. 


v02-016 pr seret Steven T. Jeffreys 04-Jan-1982 


hanged OPT_OVERLOCK to OPT_OVR_LOCK. Do not print 
messages if OPT_MESSAGE is not Set. 


v02-015 ACG0246 Andrew C. Goldstein, 4-Jan-1982 15:21 


WIN OOO NOP UNOS NS 


Add /OVER:LOCK 


V02-014 STJ0149 Stevem T. Jeffreys 02-Jan-1981 


Extensive rewrite to support the SMOUNT system service. 


v02-013 SsTJ0089 Steven T. Jeffreys 09-Aug-1981 
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Reset mount options at the beginning of each attempt 
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VMOUNT 16-Sep-1984 01:00: VAX=11 Bi $-32 V4.0-742 3 V 
v04-002 1328681382 94:90:28 DISKSVMSMASTER: CMOUMT. SRCJVMOUNT .B32; Pye? 1) V 

3 9 } to mount a volume. 

1 1! v02-012 DMw0008 David Michael Walp 10-Jun-1981 

§ 3 Liberal re-write to facilitate operator assisted mount 

? : work for tapes. 
5 5S 37 vO1i1 $TJ0005 Stev Jeffrey Po0e 1960 
$ : } Liberal re-write to We ilstets shoteter assisted mount. 

8 8 1! v0O110 acGd125 Andrew C. Goldstein, 23-Jan-1980 14:57 
ie Z : Init USER_STATUS cell for correct header error reporting : 
41 0 re 1! v0109 AaCG0123 Andrew C. Goldstein, 17-Jan-1980 20:33 7 
? tg : } Complete integration of disk rebuild 
44 § 44 1! vO108 RIHO0S1 Richard I. Hustvedt, 13-Jan-1979 14:33 
rh 8 rf : Add call to rebuild bitmaps and quota file on volume mount. 
4 0 t3 1! v0107 AcG0079 Andrew C. Goldstein, 5-Nov-1979 13:53 
re . 3 : Structures for file ID and extent cacheing 
50 0250 1: v0106 acGo0d72 Andrew C. Goldstein, 15-Oct-1979 16:12 
2 8 3} } Check primary and secondary device characteristics 
3g 0 3g 1! v0O105 ACG0069 Andrew C. Goldstein, 8-0ct-1979 18:32 
ee 0955 : Remove device data table 
56 0 2$ 1! v01046 ACG0044 Andrew C. Goldstein, 18-Jun-1979 16:15 
3 0958 ' Add disk quota support 
59 0259 1! vores ACG21786 Andrew C. Goldstein, 2-Feb-1979 14:19 
rs ased ' Fix home block scan loop Limit conditional 
66 096 1! v0102 ACG0013 Andrew C. Goldstein, S-Jan-1979 13:52 
vey 8 o7 ! Don't clear valid bit on failure on already mounted volume 
65 65 1! v0101 #ACcG0003 Andrew C. Goldstein, 27-Nov-1978 17:48 
06 66 : Add multi-volume support for dis k 
68 0968 1! v0100 ACG00001 Andrew C. Gol 10-Oct-1978 19:56 
69 $9 Previous revision history moved be nO ONT. eRCIMOUNT. REV 

ee 
: | 
7 ig 1 LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
74 74 1 REQUIRE ‘SRCS: MOQUDE DEF .B i; 
75 1 REQUIRE "LIBDS: VMSLIB-OBdJINITMSG. REQ'; 
; 939 
78 940 1 FORWARD ROUTINE 
79 941 1 YSSVMOUNT ' entry point (w/o operator assist) 
80 94¢ 1 VMOUNT_ENVELOPE i base call frame for MOUNT VOLUME 
1 943 1 REBUILD ENVELOPE, ' base call frame for REBUILD 
; 944 1 INTERCEPT SIGNAL, ! Intercept EXEC mode signal 
945 1 ont VOLOME , ' Mount a given volume 
366 1 MAIN RAND DLER, ! main condition handler 
5 947 1 FORC RCE. DI SMOUNT, ! dismount a volume just mounted 


PE. coo A Ra OS ) 


1bc$e 85b-198e 91:92:88} STSKSUMGMASTERSCMOUNT.-SkcavMoUNT.832°8%° 18 
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; 948 1 CLEAR vale, : leer VALID dui? in UCB 

5 949 1 DA ALLOE SHP bey. i deallocate device for shared mount 

3 9 1 ld DEV_OQN ' transfer device ownership 

3 9 1 UNT CLOSTER ' cluster-wide mount 

: 952 1 MOUNT T7ENCIPHER, i create a cluster-mount packet 

3 955 1 SEARCA DEVICE, ' generic device search/allocate routine 
3 0954 1 DEQ_MOONT_LOCK : NOVALUE, ' dequeue the mount lock 

; O323 ! WAIT_DELTA : NOVALUE; ! wait before 1OCSSEARCH retry 


<< 
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eneral use in the MOUNT utilit 


wn storage for 
DATA_BASE_READY and STORED.CONTEXT initialzed 


9 
9 
j 
; n the module ASSIST. 
9 
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CLEARUP_ALLOC 
CLEANUP_FLAG 
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MOUNT_ITMLST 
LABLCR_STATUS 
VMOUNT~GBL_END 
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= HOME BLOCK; 
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VECTOR (OJ ! Mark start of global storage 
fiero £323,1 store the context of some 1 time only 
! Boolean 
BITVECTOR DEVRAKI VOLATILE, !Indicates which physical devices are allocated 
BITVECTOR CDEVMAX] VOLATILE 
' Indicates which devices have been 
! interlocked. 
VECTOR (2) ! 8 k status block for $ENQ. 
BITVECTOR Ee MAX] VOLATILE, !Indicates which physical devices need to be dealloc 
BITVECTOR VOLATILE, ! error cleanup status flags 
ONG VOLATILE,! channel number for 470 
LONG VOLATILE,! Index into device List 
! channel number of ACP termination mailbox 
: LONG, ' caller's access mode 


! number of physical devices in use 

: VECTOR CDEVMAX*2] ! descriptor of physical device name 
: VECTOR CNAMEBUF_LEN*DEVMAX, BYTE, ' 

H gtetng buffer for physical device name 


: VECTOR (63, BYTE ‘ 

! buffer to construct logical name 
: BBLOCK (512), ! purer for volume header label or home block 
: BBLOCK DIBSK LENGTH . 


! for device characteristics 
: BBLOCK CoIBSK LEN 


uf s° 
GTHI, 
uffer for sec. device characteristics 
! home block read 

' LBN of file header read 

! RVN of disk being mounted 


a 
wo 
z2a- 
° 
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' 
' 
VECTOR (2), ' status return for various routines 
REF BBLOCK, ! address of VCB used by CHECK_HEADER2 
REF BBLOCK, ! address of MVL allocated for mag tape volume 
REF BBLOCK, ' address of RVT allocated for mag tape volume 
REF BBLOCK, ' address of VCB allocated for volume 
: REF BBLOCK, ' address of cache block allocated for vol. 
: REF BBLOCK, ' address of FCB allocated for volume 
: REF BBLOCK, ' address of window allocated for volume 
REF BBLOCK, ' address of AQB allocated for volume 
REF BBLOCK, ' address of mounted volume list entry 
REF BBLOCK, ' address of volume set MT 
' address of the mount item List 
VECTOR F§i: ' Label lock status 
VECTOR ; ! Mark end of GLOBAL storage 


BUFFER FOR VOL1 MAGNETIC TAPE LABEL 
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3 3 1 \$ 1 ALLDEVNAM_BUF : VECTOR CNAMEBUF et EN BYTE] 

3 4 1015 1 INITIAL (BYTE (*MOUS' 

EY 

3 1 18 1 ALLDEVNAM_DESC : VECTOR (2) INITIAL wee ALL a Mage 

; 8 1019 1 | des riptor alloc class devnan 

3 59 1020 1 DEVCHAR_DESC : VECTOR (2) INITIAL” tb “LENGTH. oc ites CHA 

: 0 1021 1 apser or device characteristics 

3 61 10 § 1 DEVCHAR_DESC2 : VECTOR (2) Initiate (| $k rLENGTa DEVICE_CHA 

; 6¢ 1} Z ! ! descriptor for sec. device snaristnrtertes 

; 64 13 7 3 LABLCKNAM_BUF : VECTOR CNAMEBUF etENt4, BYTE) 

; 5 1 § 1 INITIAL (BYTE (*MOUS', 

; 66 10 1 REP NAMEBUF LEN OF (* '))), 

; 367 1028 1 ' Label lock name buffer 

; 68 1029 1 LABLCKNAM_DESC : VECTOR (C2 ONG 

; 369 1030 1 INITIAL (6, LABLCKNAM_BUF); 

: 70 1031 1 ! Label lock descriptor 

s 357i 1032 1 
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REP NAMEBUF_LEN-4 OF (* '))), 
! string buffer for ai toc class devnam 
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GLOBAL ROUTINE SYSSVMOUNT (ITEM_LIST) = 


FUNCTIONAL DESCRIPTION: 
This is the main routine of the MOUNT utility. 


CALLING SEQUENCE: 
SMOUNT (arglist) 


INPUT PARAMETERS: 
ITEM_LIST : Address of a $GETJPI-Like item List 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


assorted status values 


SIDE EFFECTS: 
volume(s) mounted, device data base updated 


BEGIN 
BUILTIN 

MOVPSL, ' Get current PSL 

CALLG, ' Used to call CHECK_PARAMS 

AP; ! Used to pass paramS to CHECK_PARAMS 
EXTERNAL ROUTINE 

ACTIVATE JOURNAL: ADDRESSING_MODE (GENERAL), ! activate RUJ 

SDALLOC_BEVS$U : ADDRESSING_MODE (GENERAL), 

CHECK_PARAMS; ! Process the user-supplied parameters 


EXTERNAL 
DEVICE_COUNT : ADDRESSING_MODE (GENERAL) ; 
! Number of devices specified 
LCK_GLOBAL_START: ADDRESSING_MODE (GENERAL), 
' Start of global lock area 
LCK_GLOBAL_END : ADDRESSING_MODE (GENERAL); 
! End of global lock area 


LOCAL 


Declare the privileges that are necessary for MOUNT to work. 
CURRENT PSL : BBLOCK BF holds current PSL 
H : f v 


i Amplified privilege mask 
! Temp storage for privilege mask 


MOUNT _PRIVS : BBLOCK 
USER_PRIVS : BBLOCK 
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! system service status 


STATUS; 


MOUNT_PRIVS = (1*$BITPOSITION (PRVSV_ACNT) 
I°$BITPOSITION (PRVSV-ALTPRI) 
1*$BITPOSITION (PRV$V—BUGCHK) 
1*$BITPOSITION (PRVSV-BYPASS) 
I*$BITPOSITION (PRVS$V—DETACH) 
1A$B1TPOSITION (PRVSVEXQUOTA 
1*$BITPOSITION (PRV$V~GROUP) 
1*$BITPOSITION (PRVS$V—MOUNT) 
1°$BITPOSITION (PRVSV"PHY_10) 
1°$BITPOSITION (PRVS$V—PSWAPM 
1*$BITPOSITION (PRVSV~TMPMBX 
I*$BITPOSITION (PRVSV—SETPRV 
I*$BITPOSITION (PRVSV—SYSLCK 
, 1*SB1TPOSITION (PRVSVWORLD) 

MOUNT_PRIVSCPRV$V > bRMINLD = 1; 


User N§Tatus 


! Process the user-supplied parameters, if 

i we haven't already. The conditional call 
i is to save the overhead of having to do it 
i for each attempt at a mount, and to make 
sure that it is done at least once. 


ren -DATA_BASE _READY 
MO 
CK 
7 ITEM_CIST; 

= CALLG (.AP, CHECK PARAMS) ) 
N (, STATUS} 3 


MOVPSL UR RENT ~PSL 
ENDL eRS.. ACMOD = CURRENT PSL CPSL$V_PRVMOD]; 


! Save the current privilege mask and grant the 
caller the necessary privileges. 


SSETPRV (ENBFLG=1, PRVADR=MOUNT_PRIVS, PRVPRV=USER_PRIVS); 


VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER: CMOUNT. SRCJVMOUNT. B32. 


! Amplified privilege mask 


! PRMJNL is in the 2nd longword 


UNT_GBL_END-VMOUNT_GBL_START, VMOUNT GBL_START); 
GLOBAL “END-LCK_GLOBAL"START, LCK_GLOBAL-START); 


Loop for all devices in the command Line to mount multiple disks and tapes. 
However, it is necessary te, roses DEVICE_INDEX for tape mounts because tape 


volumes are not mounted unti qvery volume in the command Line has been 


' 
i 
i 
i processed, and an error rob 
done on previous volumes to be undone. 


on on the Nth volume will force alt the work 


a 


16 Se 1 
-seo- 
13-88b-1 


STATUS = VMOUNT_ENVELOPE (); 
KERNEL_CALL ( DEO _ROUNT LOrk d3 
IF .LABLCK_STATUS C1) NEQ 

SDEQ ( LKID = .LABLCK_STATUS [1] ); 


IF NOT .STATUS 
THEN 


BEGIN 

SSETPRV (ENBFLG=0, PRVADR=MOUNT PRIVS); 
SSETPRV (ENBFLG=1, PRVADR=USER_PRIVS); 
RETURN (.STATUS); 


END; 
DEVICE_INDEX = .DEVICE_INDEX+1; 


$DALLOC_DEVS$U (0); 


Rebuild volume if mounting files-11 ODS-2 disk 


IF _ .CLEANUP_FLAGSCCLF _REBUILD) 
THEN 


w POPUPUNUNUNUNUN | ss OOOO OOO 
PAR -“SOWNONE WV" ODDNANE WW UMODR NMR Ooo 


EGIN 
STATUS = REBUILD_ENVELOPE (); 
rosnen (CHAN = .CHANNEL); 


LAWALL 


iF_.STATUS 

STATUS = ACTIVATE_JOURNAL (); 
' 
; when appropriate. 


if .STATUS 
THEN 
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; ! 

Deallocate all devices that are not mounted. 
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ret IF (.DEVICE_INDEX GTR 0) AND .STORED_CONTEXTCTAPE_MOUNT] 

188 DEVICE_INDEX = 0; 

$3) see I FROM .DEVICE_INDEX TO .DEVICE_COUNT=1 

rt BEGIN 

495 i Mount the volume. If the attempt failed, abort the mount 

496 ! and return the error status. Always dequeue the mount interlock(s), 
497 no matter if the mount attempt succeeded or failed. 


Dequeue the Label lock if it exists 


! Clear granted privileges 
! Restore old privileges 


! Deassign channel used by REBUILD 


If the rebuild was successful, attempt to activate the RUJ. 


i If the mount was successful, sent this mount request cluster-wide 


4 P 1 
SRCIVMOUNT.B32¢8°" (4) 


<< 


ca 


10-198 92:38 DTSkSumsnafeRscHOUNT -SRC3VMOUNT 03273" ¥ 


: $44 é STATUS = MOUNT_CLUSTER (.ITEM_LIST); : Mount cluster-wide i 
: 54 1 $ ! Revoke any privileges that were granted. 3 
: rh 08 
: 549 1909 5 $SETPRV (ENBFLG=0, PRVADR=MOUNT_PRIVS); ' Clear granted privileges ; 
: 50 1210 2 SSETPRV (ENBFLG=1, PRVADR=USER, PRIVS); | Restore old privileges : 
; 55 421 RETURN (. STATUS) ; 
3 88g 1 8 $ 
; 554 1214 1 END; ! end of routine MOUNT_COMMAND 


IDENT \V04-002\ 
.PSECT $GLOBAL$,NOEXE,2 
00000 VROUNT 68 ty: 
00000 STORED_ CONTEXT: 
00004 DATA_BASE_READY: 
00008 DEV ALLOEATED:: 
$000C DEV ACQUIRED: 


3 -BLKB 
$003 LOCR STATS 
00018 CLEANUP_ALLOC:: 

BLKB 


QOO1A “BLKB 
0001C CLEANUP_FLAGS: : 
00020 CHANNEL: : 

-BLKB 
00024 DEVICE IRE 
00028 MAILBOX_CHANNEL : 
0002¢ CALLERS ACMOD : 
00030 PHYS COUNT: : | 
00034 PHYS_NAME: : | 

-BLKB 
00084 NAME_BUFFER: : | 

-BLKB | 
00284 LOG_BUFFER:: 


| 


SR RRR RP NN @ RN RH BOR OF 


~m 
oo 


So3ha WOME BLOCK? <~ cs | 
004F4 DEVICE_CHAR: : | 
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.BLKB 
00568 DEVICE_CHAR2:: 
0050C HOMEBLOCK_LBN:: 


-BLKB 4 
005€0 HEADER LBN: : : 
005E4 CURRENT RYN: : : 
005E8 USER_STATUS: : . 


005F0 CURRENT_VCB: 
OOSF4 REAL_MVL:: 
OOSF8 REAL_RWT:: 3 
OOSFC REAL_VCB:: 

00600 REAL_VCA:: 
00604 REAL_FCB:: 
00608 REAL_WCB:: 
0060C REAL_AQB: : : 
00610 MTL_ENTRY:: 

00614 SMTL_ENTRY: : 
00618 MOUNT_ITMLST:: 

0061C LABLCK_STATUS:: 
00624 VMOUNT_GBL END: : 
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24 55 4F 40 00624 ALLDEVNAM BUF :: 

-ASCII = \MOUS\ 

0628 -ASCII \ 

629 ASCII \ 

2A -ASCII \ 

6 «ASCII \ 

C ASCII \ 

D ASCII \ 

E ASCII \ 

ber -ASCII \ 

-ASCII \ 

1 -ASCII \ 

ASCII \ 

ASCII \ 

ASCII \ 

5 ASCII \ 
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16-Sep-1984 01:00: VAX-11 Bliss-32 V4.0-742 Page 15 V 
1§-$ep-1984 94:92:88 DISKSVMSMASTER: COUNT . SRCJVMOUNT .B32; 3° aid v 
VOL1== HOME _BLOCK ; 
-EXTRN ACTIVATE JOURNAL : 
»EXTRN SDALLOC BEVSSU, CHECK_PARAMS ; 
~EXTRN DEVICE COUNT, LCK GLOBAL START ‘ 
«EXTRN LCK_GLOBAL_END, SYSSSETPRV ; 
-EXTRN SYSSCMKRNL, SYSSDEQ ; 
“EXTRN SYSSDASSGN ; 
.PSECT S$CODES$,NOWRT,2 ; 
OOFC 000 .ENTRY SYSSVMOUNT, Save R2,R3,R4,R5,R6O,R7 ; 1033 : 
57 990000006 00 3E 0 MOVAB SYSS$SETPRV, R : ; 
6 0 FF 5 MOV DEVICE INDEX, R6 : : 
5e 0 ¢ 19 SUBL2 #16, SP : ; 
FC = =A6 D4 0001 CLRL = CHANNEL > 1093 : 
0504 C6 1 00 00016 MOVL =o SER STATUS > 1094 ; 
08 AE 60CBF320 i p 001 OVL  #1623978784, MOUNT_PRIVS > 1096) : 
0c AE 0 99 3 BISB2 #32, MOUNT PRIVS+4 > 1111 : 
3 EO Ab 5 0 BLBS = DATA_BASE_READY 38 ; 1120 : 
00 6E * 00 C 99 ; MOVCS #0, TSP),~#0, #1572, VMOUNT_GBL_START : 1123 : 
00 bE 00 2c $0 movcS #0, (SP), #0, #<LCK_GLOBAL_END-- 5 1124 ; 
000000006 00 0038 LCK_GLOBAL_START>, CCK_GLOBAL_START : ; 
O5F4 C6 04 AC DO 00040 MOVL ITEM_LIST,~“MOUNT_ITMLST : 1125 3 
EO Ab 01 00 0046 MOVL #1, BATA_BASE_READY : 1126 : 
00006 CF GC FA OO04A CALLG (AP), CHECK_PARAMS : 1127 : 
i a : 3 
0086 31 0005 BRW 9$° ; ; 
i dc 00058 18: MOVPSL CURRENT PSL : 1130 ; 
50 02 16 EF OO05A EXTZV #22, #27 CURRENT_PSL, CALLERS_ACMOD : 1131 ; 
7E be oode? LAL SSP) Rise ; 
10 A Gages SHAR UT paivs 3 : 
67 04 FB 00069 CALLS #4, SYSSSETPRV ; : 
66 08 906¢ iste DEVICE_INDEX ; 1147 : 
02 pc =6—A6 CED 0070 BLBC  STORED_CONTEXT, 3$ : ; 
66 D4 00074 CLRL —d DEVICE“ INDEX > 1149 ; 
54 000000006 00 09 0076 3$: MOVL_  DEVICE~COUNT, R4 : 1151 ; 
53 66 } c $ 4) sueLs ae DEVICE_INDEX, 1 ; : 
00000000v EF Q FB 00 Bs 48: CALLS #0, WMOUNT ENVELOPE : 1159 ; 
2 D A MOVL RO, STATUS : ; 
ze bs der cURL -(§P) ; 1160 ; 
00000000v ai BF 90091 PUSHAB DEQ_MOUNT LOCK ; ; 
000000006 9F 3 FB 00097 CALLS #3, @#SYSSCMKRNL ; ; 
50 OSFC C6 6 MOVL LABLCK_STATUS#4, RO : 1161 ; 
Op i A BEQL $ ; : 
ana Tams feed oe 
000000006 0 S FB 3 CALLS i SYSSDEQ 
08 3 £9 O0080 5S: BLBC = STATUS, > 1165 ; 
66 06 0008 INCL DEVICE_ INDEX : 1172 ; 


F 5 
VMOUNT 16-Sep-1984 01:00: VAX-11 Bliss-32 V4.0-742 Page 16 V 
04-002 oreo hae PTE Gke Pee ekdWRAAS Teac chGunr Skcavmounr.es2r8@* «4 V 
“ ‘ Fe AE R008 SH ORS egle 48 aL 
000000006 00 ; FB BD CALLS #1, S$DALLOC_DEVSS : 
9 Ab 1 € C4 BBC #1. CLEANUP"FLAGS+1, 7$ + 1184 
00000000v gf 0 Fe ¢ CALLS 40, REBUILD" ENVELOPE + 1187 
. FC OG BD 4 PUSHL CHANNEL 1188 
000009006 00 1 FB ny CALLS #1, SYSS$DASSGN : 
1A E DD 7$ BLBC S + 1194 
000000006 99 F E CALLS #0, ACTIVATE_JOURNAL + 1196 
D E MOVL R STATY ; 
0d E EA BLBC == STATUS, &8$ ; 1202 
04 AC DBD O00ED PUSHL ITEM_LIST +1 
00000000v EE 1 FB FO CALLS #1, MOUNT_CLUSTER ; 
2 0 b oF MOVL RO, STATUS 3 
E 7C OOOFA 8$ CLRO 20 = ( §p) + 1209 
10 AE 9F O00FC PUSHAB MOUNT_PRIVS ; 
7E D4 OFF LRL -(SP) ; 
67 4 FB 101 CALLS #4, SYSSSETPRV : 
E 7C 001 LRO 2s = ( §P) + 1210 
08 AE OF 0106 PUSHAB USER_PRIVS ; 
1 DD 00109 PUSHL #1 ; 
67 4 FB 0010B CALLS #4, SYSSSETPRV 3 
0 2 DO OO10E 98 MOVL ©TATUS, RO ; 1212 
04 00111 RET + 1214 


; Routine Size: 274 bytes, Routine Base: S$CODE$ + 0000 
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ROUTINE VMOUNT_ENVELOPE = 


'e¢ 
| FUNCTIONAL DESCRIPTION: 
; This routine serves as the base call frame for all the EXEC 
} mode code, and provides a convenient (and necessary) spot 
from which to intercept all EXEC mode conditions. 
CALLING SEQUENCE: 
} This routine should be called in EXEC mode. 
INPUT: 
None. 
OUTPUT: 
None. 
IMPLICIT INPUTS: 
Current mode is EXEC, DEVICE_INDEX contains an integer value. 
} ROUTINE VALUE: 
This routine returns the status returned by MOUNT_VOLUME. 
len 
BEGIN 
LOCAL 
STATUS; 
Establish the special EXEC mode condition handler. 
ENABLE INTERCEPT_SIGNAL; 


t 
Attempt to mount the volume. 


STATUS = MOUNT_VOLUME (.DEVICE_INDEX); 
RETURN (. STATUS) 
END; 


0000 00000 VMOUNT_ENVELOPE: 
-WORD Save nothing : 1215 


<<< 


| 
| 
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1 ~Sep-19 4 94:90:38 D1ISKSVMSMASTER: [MOUNT . SRCIVMOUNT.B32;3" 3 
ROUTINE REBUILD_ENVELOPE = 


+4 
4 


; FUNCTIONAL DESCRIPTION: 


This routine returns the status returned by MOUNT_VOLUME. 


i This routine serves as the base get’ frame for all the EXEC 
: mode code, and provides a convenient (and necessary) spot 

} from which to intercept all EXEC mode conditions. 

CALLING SEQUENCE: 

This routine should be called in EXEC mode. 

| INPUT: 

None. 

OUTPUT: 

None. 

| IMPLICIT INPUTS: 

Current mode is EXEC, DEVICE_INDEX contains an integer value. 
| ROUTINE VALUE: 

i 

4 

i 


BEGIN 
EXTERNAL ROUTINE 

STAND_ALONE_REBUILD; ! Rebuild quota file and bitmaps (0DS2) 
LOCAL 

STATUS; 


i] 
: Establish the special EXEC mode condition handler. 


ENABLE INTERCEPT_SIGNAL; 
' 
Rebuild the volume. 


ERR_MESSAGE (MOUNS_REBUILD); 
STATUS = SASSIGN (BEVNAM = PHYS NAMELO), 
HAN CHANR : 


C = L); 
IF NOT .STATUS THEN ERR EXIT (.STATUS); | 
STAND_ALONE REBUILD (.CRANNEL); 


RETURN 1 
END; 
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-EXTRN STAND ALONE _REBUILD 
-EXTRN SYSSASSIGN 


0004 00000 REBUILD_ENVELOPE: 
52 00000000' AOVAB 
; 88 


" 009 MOVAL 281 
0072A018 PUSHL #7512091 


000000006 00 CALLS } py oes enm 


14 PHYS_NAME 

000000006 00 #4, SYSSASSIGN 
STATUS, 1$ 
STATUS 

CALLS HW LIBSSTOP 


CALLS #1, STAND_ALONE_REBUILD 
MOVL #1, RO 


2s: -WORD Save nothing 
-(SP) 


000000006 00 
0000G CF 


o 
So 


OoOMNOVTVOCOOC TNO "OM" OONT 


FDoo fFOfowowrvoawn"e 


oooooceo 


SP 
7E 04 M 4(AP), =(SP) 
cats #3, INTERCEPT SIGNAL 
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; Routine Size: 82 bytes, Routine Base: S$CODE$ + 0139 
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ROUTINE INTERCEPT_SIGNAL (SIGNAL, MECHANISM) = 


'e¢ 


! Functional Description: 


Input: 


Output: 


BEGIN 
MAP 


SIGNAL 
MECHANISM 


EXTERNAL 


MOUNT _OPTIONS 


MOUNT fac 


SIGNAL 
MECHANISM 


This routine is a conditon handler whose sole 
oe ye for existence is to force the primary 
nditon 


ode's facility-code to that of the 
lity. 


USER STATUS 


VOLIRV_COUNT 


EXTERNAL LITERAL 


VOLINV_LIMIT; 


Address of the signal array 
Address of the mechanism array 


The condition facility code is equal to MOUNS_FACILITY 


! Start of INTERCEPT_SIGNAL 


: REF BBLOCK, 


! Signal array 
: REF BBLOCK; 


! Mechanism array 


: ADDRESSING MODE (GENERAL) 
BITVECTOR VOLATILE, perser option flags 

: ADDRESSING_MODE (GENERAL); 
! VOLINV retry counter 


! VOLINV retry Limit 


IF ,SIGNALCCHFSL_S1G_NAME] NEQ SS$_UNWIND 


BEGIN 


| Make the facility code MOUNS_FCILITY. 


if .BBLOCK 
OR ,BBLOCK 


HEN 
BBLOCK 

IF .BBLOCK 

THEN 
BBLOCK 


SIGNAL CHP SL 316 MANE) STS$SV_FAC_NO) EQL 0 
SIGNALCCHFSL_SIG_NAMEJ, S 


TSSVZFACTNO] EQL INITS_FACILITY 


CSIGNALCCHFSL_SIG_NAME], STSSV_FAC_NOJ = MOUNS_FACILITY; 
CSIGNALCCHFS$L_SIG_NAMEJ, STS$V_MSG_NO) EQL 0 
CSIGNALCCHFSL_SIG_NAMEJ, STSSV_MSG_NO] = .USER_STATUS [0] * (-SBITPOSITION (STS$V_MSG_NO)); 


If the caller requested it, print the message text associated with the 
Also make sure tha 


t the particular error is not covered by 


i? 2 
13rgeb13be $1928 | suns Fea schoonT ge 


tatus return of some routines 


Shcavmount.e3203°° (3 
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Rs MOUNT SRCIVMOUNT.B32;8°° (85 
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; f ¢ ! i 3 operator assisted mount. If it is, do not print the message. 

: 724 1 1 if (.MOUNT pet tous COPT_ MESSAGE] AND NOT (. ovat on ASG NOS corr g8818T2 
3 f 5 } § ? AND (SELECTONEU ( ~SIGNAC CCHFSL_SIG_NAME] AND STS 

ee, § 1384 ° SS$ -PEVALLOC - STSSM_MSG_NO) : 1; 

; 728 1385 Bette AND STSS$M_MSG_NOJ] : 1; 

; 729 1 § 6 SS$_VOLINV AND STSEN-ASGe : 13 

; 750 1 6 SSS -NODEVAVL AND STSSM_MSG_ : 33 

s 735i 1 $3 6 SS$_NOSUCHDEV AND STSSM_MSG_NO) : 1; 

ia - ¢ 1389 6 Ss$- st YOU LABEL AND STSS$M_MSG_NOJ] : 1; 

. F 1390 6 OTHERWISE : 0; 

SS, 1391 4 TES))) 

s 739 1 3 4 

; 736 13935 4 ! 

s far 1394 4 ! If mounting with /NOASSIST and we are in VOLINV retry, supress outputting 
3 re ’ 3 ? the VOLINV error message unless this is the last retry attempt. 

; 740 1397 5 AND (.MOUNT ha ae | COPT_MESSAGE] AND NOT (NOT .MOUNT tsa ® COPT_ASSISTJ 
3 oe 1338 ° AND (SELECTONEU ¢ - SIGNAL” CCHFS$L_SIG_NAME] AND STSS$M_MSG_NO) 

3 7 1400 6 Pils sais ton AND STSSM_MSG_NO] : IF .VOLINV_COUNT LSS VOLINV_LIMIT-1 
> 744 1401 6 THEN 

3; «6745 1a08 6 1 

3; 746 1403 6 ELSE 

3 747 1404 6 0; 

; 748 1405 6 

3: 749 1406 6 COTHERWISE) 3 

; 750 1407 4 TES))) 

s el 1408 3 THEN 

3 P3¢ 1409 4 

; 7 1410 4 L CCHFSL_SIG_ARGS] = .SIGNAL CCHFSL_SIG_ARGS) = 2; 

; 754 1411 4 SpOTREG (MSGVEC ="SIGNAL CCHFSL $16 ARGSJ RCTRINA0, FACNAM=0); 

: 755 141 4 SIGNAL ECHE SL 16 ARGS] = .SIGNAL CCHF$L_$1G_ARGS) + 2? 

; 756 1413 4 BBLOCK CSIGNAC CCAFSL_SIG_NAMEJ, STS$V_IRHIB = 1; 

; 757 1414 3 END; 

; 758 1415 ; 

3; 759 1416 ! 

; 760 1417 3 ! If the condition severity code is SEVERE or ERROR, then unwind the 
3; 761 1418 ' stack back to the caller of the frame that established this handler. 
; r6e 1013 : Return the condition code in RO. 

: 764 1421 if -BBLOCK CSIGNAL CCHFSL_SIG_NAME TS$V_SEVERITY] EQL STSS$K_SEVERE 
3 oe? 1 ¢ of —jbetock SIGNAL CCHFS$L~SIG_ NAME], STS$V~ SEVERITY] EQL STSS$K_ERROR 
; 767 1424 4 BEGIN 

; 768 1425 4 MECHANISM CCHFSL_MCH_SAVROJ = .SIGNAL CCHFSL_SIG_NAME]); 

; 769 14 $ 4 SUNWIND (); 

s rr 14 3 END; 

: 771 1428 END; 

: Pr 1429 

; 77 1430 ! . 

: 46 YF 1 : Attempt to continue the operation. 

3 ore 1? § RETURN (SS$_CONTINUE); 

: 778 1435 1 END; ! End of INTERCEPT_SIGNAL 
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132Sep-1986 11:14:58 DASKSVMSMASTERSCHOUNT.-SRCIVMOUNT.B32;3°" (8) 


~EXTRN MOUNT OPTIONS, VOL INN COUNT 
»EXTRN VOL ING LIMIT, SYSSPUTASG 
-EXTRN SYSSUNQIND 


001C 00000 INTERCEPT SIGNAL: 
OR 


.QORD Save R2,R3,R4 ; 1322 
54 000000006 00 3 000 MOVAB MOUNT OPTIONS+6, R4 : 
24 bg AS Be boooD Novia Steayc’RG ti 
00000920 =F é i is CMPL tae? 95336 ; 
oops $4 doors es ' 
OFFF © 8F 02 8 83 001D 1$: BITW g(R3), #4095 + 1367 
0¢ 13 000 BEQL $ ; 
00000075 = 8F 02 a3 0c 0 F 00 CMP2v #0, #12, 2(R3), #117 + 1368 
A O02F BNEQ 3$ ; 
02 AB 0c 00 00000072 8F FO 00031 a8: INSV #114, #0, #12, 2(R3) : 1370 
FFF& =F 63 : 0038 $: BIT (R3), #65528 : 1372 
50 0000G CF FD SF 7 49k: ASHL #-3, yore status RO 3: 1374 
63 OD 03 50 FO 0004 INSV RO, #3, #T3, (R35 : 
51 64 01 03 EE D004 4$: EXTZV 3. a MOUNT_OPTIONS+6, R1 + 1381 
3E 64 2 €1 00056 BBC #2. MOUNT_OPTIONS+6, 5$ ; 
50 63 FFFFOOO7 8 (CB O005A BICL3 #65329 TR3), RO + 1382 
ae. © 29 43 0069 cae 8. Belle Down 
000001A0—&F 50 Di 00068 CMPL RO, #416 : 1385 
60 13 00072 BEQL «= 7$ ; 
00000250 =F 0 D1 00074 CMPL = RO, ~#592 : 1386 
57 13 00078 BEQL «= 7$ ; 
00000980 =F 50 Dl 90070 CMPL RO, #2480 : 1387 
4E 13 00084 BEQL «6s 7$ : 
00000908 =F 30 D1 00086 CMPL RO, #2312 : 1388 
45 13 00080 BEQL «Ss 7$ ; 
00000108 8F 50 D4 OO08F CMPL = RO, - #284 : 1389 
3c 13 0009 BEQL 6 7$ : 
39 51 £9 00098 S$: BLBC ~=s.-«aR1,, 78 : 1397 
1E 64 02 £0 00098 BBS #2. MOUNT_OPTIONS+6, 6$ : 
50 63 FFFFOOO7 8F CB 0009F BICL3 #65529 TR3), RO : 1398 
00000250 BF : b} 0047 CML RO. #592 : 1400 
000000006 8F 000000006 09 of fe CPL OLINV_COUNT, #VOLINV_LIMIT=1 
6 2 OOBD 6$: SUBL2 #2, (R2) > 1410 
. 2 ce 99¢ CLRO. 0 = (§P) > 1411 
7E D4 000¢ CLRL = = (SP) ; 
52 DD o¢ PUSHL R : 
000000006 00 F C6 CALLS #4, SYSSPUTHSG ; 
6¢ : f cD ADDL2 #2. (R2) : 1412 
03 =A D BISB2 #16, 3(R3) : 141 
04 63 03 FD Dé 7$: CMPZV #0, #3, (R3), #4 > 1421 
02 63 03 0 €D 000DB CMP2vV #0, #3, (R3), #2 + 1422 


<< 


5 
WSSepc4RRE 14:00:98 YCLTABAASHER? Muli 4Resvmounr.o5c%8°% 


5 0B AR 08 # es:  AOVe —-RECHANISM. RO + 1425 
eet) we as 

000000006 99 09 FB Oe¢ CALLS 42, SYSSUNWIND : 
0 T 0 O0OFS 98: MOVE” «Ai, RO 1433 


; Routine Size: 247 bytes, Routine Base: $CODE$S + 0188 
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pT 14 ¢ 1 ROUTINE MC'INT_VOLUME (J) = 

: 781 1437 1 

oes! Bi 

: i 1440 i FUNCTIONAL DESCRIPTION: 

; me 1206 ! | This routine will mount a single disk or tape volume. 

: 788 1448 i CALLING SEQUENCE: 

: £30 1446 ; mount_volume (.j) 

ie ee ey 44 et 

: Pee Vee : J: Index into device List. 

; 196 1438 | OUTPUT: 

Cie ot Ee dea bem 

: 800 1456 { IMPLICIT INPUT: 

; 80 1458 Mount data base 

: 804 1460 1! IMPLICIT OUTPUT: 

; 805 1461 1: 

: Boe 1268 1 | — 

; 808 1464 t ROUTINE VALUE: 

: ay 1oo8 : Assorted status codes. 

; B12 1468 i SIDE EFFECTS: 

; B14 1470 1: Volume mounted, device data base updated. 

> 815 1471 1 ie 

: B16 1478 1 

: B17 147 BEGIN 

: BIS 1275 § Local 

; 20 1476 DEVICE_ITMLST1 ; BBLOCK C(1 * 12) + 4] INITIAL 

: Hy ¢ 1678 item: allocation class plus device name 
> B26 1480 (WORD (NAMEBUF_LEN-4) 

; 5 1481 WORD (DVI$_ALCOEVNAMS 

; $ 14 ‘ LONG (ALLDEVNAM_BUF +45, 

: Be? 14 \LONG (ALLDEVNAM-DESC), 

; 829 1485 i end of List 

: 831 14 ; “LONG (0)), 

3 § 14 3 Pp ! string scan pointer 
; 14 STATUS: i system service status 
; 835 1491 2 EXTERNAL 

; 1492 DEV_CTX : BBLOCK FIELD (DC), ! device value block context fields 


6 | 
T 15- Sep-1984 01: VAX-11 Bliss-32 V4.0 Page 26 
v04-002 1 oa 38 9} £99: 3 DISKSVMSMASTER: chounT. $ CIVMOUNT 832; 3° had 
7 MOUNT FAILED DDRESSING_MODE (GENERAL) LONG VOLATILE ! State of the current mount 
MOUNT~OPT IONS ADDRESSING-MODE (GENERAL) BITVECTOR VOLATILE. i parser option flags 
DEVICE_COUNT ADDRESSING_MODE (GENERAL), ! number of dey ces $s 
40 LABEL COUNT : ADDRESSING_MODE CGE NE RAL). : Oynver of volume la ot po ee 
1 DEVICE STRING : ADDRESSING_MODE (GENERAL) VECTOR VOLATILE, ! device name string descriptor 
§ PABEL STRING : ADDRESSING_MODE (GENERAL) VECTOR VOLATILE; ! volume Label string descriptor 
te EXTERNAL ROUTINE 
“6 SEARCH VOL, ! search 1/0 database = volume 
84 TRAN_LOGNAME , ' translate logica 
Be READ ~VOLLABEL, ' read magta e volume header Label 
4 READ-HOMEBLOCK, ! read disk e block 
850 APE ' mount eogteee 
851 Tipiskt, i mount level 1 disk 
£26 MOUNT “DISK2 ' mount level 1 disk 
a5! GET_DEVICE_CONTEXT; i get device lock value block context 
J | 
acs BIND 
oes OPTIONS = MOUNT_OPTIONS : VECTOR VOLATILE; 
858 | 
#4 ENABLE MAIN_HANDLER; ! Enable the MOUNT condition handler 
861 : 
b6¢ } Reset the mount options bit mask. 


Ger ionst 3, = .OP Prionst3 AND NOT RESET_OPTIONS1; 
OPTIONS(1 ; -OPTIONSC1] AND NOT RESET_OPTIONS2; 
= 1; 


BEGIN 


i rebind things to make Life easier ( so we see them as their 
real logical units) 


P 
DEVICE STRING : BBLO°KVECTOR ( DEVMAX, 
NAME _BOFFER : BBLOCKVECTOR C DEVMAX, hanéBur _LEN J, 
PHYS~NAME : BBLOCKVECTOR C DEVMAX. 


i | 


: Start of buffer 
MACRO STADR- = 0,0,0.02%: 


! 
Define descriptor vector displacements 


MACRO LEN = 0,0,32.0%; 
MACRO ADDR = 4,0,32,02; 
MACRO ILEN = 8,0,32,0%; ! Item List returned length position. 


MEW 0 OONOUE WN" OOONOu 


i If the device is being mounte’ /SHARE, /GROUP, or /SYSTEM, search the 


ee LL eS eee SS 
Pw wee ea eae lea ea) alee eal eal ea) eal alah eal eal eal ea) eal ah ah ela) ah eal eal eal eal eal eal eal eal eal ale OOO. Oe eee ee Oe Oe oe oe oe oe oe 
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v04-002 13708-1382 91:00:36 DISKSVMSMASTER: CMOUNT . SRCJVMOUNT .B32: 3° (33 
; 894 1 9 : dovice database for a metching volume label. To properly serialize : 
; 895 1 : simultaneous shared mounts. take out the label lock in Ex mode. This ; 
; rs: 1 § : label lock will be released ‘n routine SYSSVMOUNT when everything is ; 
; ° : i ; done. : 
: 99 1555 % Status = 0; : 
3 1 § 1F NOT .MOUNT_OPTIONS COPT_NOSHARE] 3 
: 303 1888 Neccin | 
8 it Sal 
: 905 1561 4 i The Label Lock has the form MOU$-csid-vollabel. The csid part makes ; 
3 208 1 66 4 : the Label lock node-specific, which is necessary to avoid potential ; 
; 1565 4 ! deadlocks in a cluster. If the node is not in a cluster, the csid ; 
; 908 1288 & ! field is set to zero. ; 
: 30 1366 & ~~ Locat | 
: 911 1367 4 CSID : LONG IME TIAL (0), ' Initialize to zero | ; 
3 aig 1568 4 SYI_ITMLST : BLOCK (1#12)44, BYTE) INITIAL : 
3; 1569 4 ( WORD (4) ! Return buffer Length : 
: 914 1570 4 WORD (SY[$_NODE_CSID),! CSID item code F 
; 915 1571 4 LONG ccS1Dy. ' Reuturn buffer address ; 
; 916 1376 4 LONG (0) 3 
; i? 1373 ‘ LONG (0)5; : 
: 919 P1575 4 = $GETSYIW ( EFN = MOUNT_EFN, ! Get CSID of the local node | ; 
; 920 1278 4 ITMLST = SYI_ITMLST ); - 
i 952 378 | 
; : § 132) ? : Set up the label lock resource name and descriptor : 
: 925 1581 4 LABLCKNAM_DESC (0) = .LABEL_STRING [.J*2] + 8; ! "moUS’ pretix + CSID ; 
3 ase 1286 4 LABLCKNAM_ BUF + 4 = .CSID; ' Merge in CSID 2 
: 9 15 & CHSCOPY T .LABEL_STRING ah F ' Length of input string 3 
3 : ; 1288 ? LABEL_STRING (.J* +11, Address of label string buffer 
: 9 1386 4 .LABEL_STRING C.J*2], i Length of output string 
3 33 Hs 14 $ LABLCKRAM_BUF + ); ! Address of output buffer 
; & 5 P 1589 4 SENQW ( LKMODE = LCKSK_EXMO ' Take out the label lock 
x. P1590 4 LKSB = LABLCR STATUS, 
3 935 P 1591 4 FLAGS = LCK SYSTEM 
: 9 P 1398 4 RESNAM = LABLCRNAM_DESC, 
: tT P1593 4 EFN = poueT ere 
; 938 34 4 ACMODE = PSLSCTEXEC ); 
; 940 1396 4 STATUS = KERNEL_CALL (SEARCH_VOL, LABEL_STRINGC.J*2)); 
Peer ie fies 
: 944 1600 i The SEARCH_VOL routine will only return success if this is a /SHARE 
3 945 1601 ' mount ong a marching volume label is found. It will signal an error 
; ae8 16 § ! if this is a /SYSTER or /GROUP mount and a duplicate volume label is 
3 3 \9 already in use. 
: 7k 1605 if .STATUS 
; 950 16 ! 


6 
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3 92) 1607 1 A successful /SHARE mount. Just bee he message here; we rejoin 
3 § 1908 ; the “volume not found’’ path much Later in the routine. 

: 954 p 1919 THEN ERR_MESSAGE (MOUNS_MOUNTED, 3, cL ASEL STR INGE J0ed. 

; 4 ‘ 18h -LABEL_STRING -Jt2+1], PHYS_NAMEC.J, LEN]) 

: 9 161 ELSE 

; rH 1614 IF .STATUS GTRU 7 

; 959 1615 THEN ERR_EXIT (. STATUS) 

: Set 1819 _— 

: 96 161 

: 308 1818 ' Volume not found: either not there or this is a /NOSHARE mount. 

; He) 1 Y We must go through the mechanics of mounting the device. 

: 9 1622 4 BEGIN 

; 967 16 ; 4 

; 968 16246 4! 

; 969 1625 4 ! The following block of code should not be re-executed if this routine 
; 441 1? § 2 is called a second time by operator-assisted mount code. 

: 97 1628 4 IF NOT .DEV_ACQUIRED[.J) 

: Ott 1680 § Neccin 

: 975 1631 : 

; 976 16 § 5 LOCAL 

; 444 1 i STSBLK : VECTOR (2); 

: 979 1635 

; 980 1636 5 ' Call the SEARCH_DEVICE routine to search for a mountable device, 
; «981 1637 5§ ' allocate it, and set up the physical device name and descriptor 

; 98 1638 2 ! in mount database. Note that if the device is available cluster- 
; 98 1639 ! wide, SEARCH_DEVICE will take out am EX mode lock for a private 

: He 1669 2 mount, or a Pw mode lock for a shared mount. 

: 986 1648 ; if NOT .DEV_ALLOCATED C.J) 

; 987 164 THEN 

; 988 1644 6 BEGIN 

3 2ap 164g ° STATUS = KERNEL_CALL (SEARCH_DEVICE, .J); 

: 991 1647 6 ' 

; 99 1648 6 ! If the device does not exists, disable operator assist before 
: pad 198) ? exiting with the error status. 

: 995 1884 6 i Otherwise, indicate that this device has been allocated. 

; 996 1936 6 ! If the device was not previously allocated, indicate such. 

3; 997 1653 6 ! If the mount fails, these devices must be deallocated. 

; 998 1654 6 ! 

£1000 1886 é * pleacenien 

: 1001 165 IN 

; 1908 1938 IF ((,. STATUS AND STSSM_MSG_NO) EQL (SS$_NOSUCHDEV AND STSS$M_MSG_NO)) 
3 199 1923 OR Ct eSTATUS AND STSSM_MSG_NO) EQL (SS$_IVDEVNAM AND STSS$M_MSG_NO)) 
: 1005 1661 7 MOUNT_OPTIONS COPT_ASSIST) = 0; 

. % 1666 7 ERR_EXIT T.STATUS); 

3: 1 1665 6 END; 
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aa ri 91:00:28 DISKSVMSMASTER: CMOUNT . SRCIVMOUNT B32: 3° a 
IF .STATUS NEQ SS$_DEVALRALLOC | 
THEN 

BEGIN | 

CLEANUP_FLAGS CCLF_DEALLOCATE) = 1; 

CLEANUPALLOC £.J]7= 1; 

END; E 
EV_ALLOCATED C.uJ = 1; 
ND; ' End device search/allocation block 
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' 
Set the PHYS_NAME high-water mark. 
PHYS_COUNT = .J + 1; 


END ! End of code that shouldn't be executed more than once 
! per device. 
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ELSE 
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PREPARE AAAAA AA AAPA OA AO 


NOVEM “OOONOUS W009 


BEGIN 


! Take out a lock on the allocation class device name. This will 
interlock all mounts of this device. 


STATUS = SENQW (LKMODE = 
LKSB = LOCK 
FLAGS = LCKSA_SYSTEM 
RESNAM = 
= 
= 


vuvvUD 
ee ee ee a a a a a a a a a ee et a ee a a ee ed ee ed ed 
OO@WMOMocn 
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ACMODE = PSL$C~ 
IF NOT .STATUS THEN ERR_EXIT (7STATUS); 
END; 


COOOCCCCOCOCOCOCOCOOCOOCOOOoOOOCOoOO 


WG 


t 
! The remainder of the code is executed each time this routine is called by 
} ASSIST if an operator-assisted mount is required. 


DEV_ACQUIREDL.J) = 1; 
1 


i Get a channel to it. If this is a cluster accessible device, 
a device lock will be taken out by this node on the device. 
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STATUS = SASSIGN ad = sb BANEC.d LEN, 
be . 
IF NOT .STATUS THEN ERR_EXIT (.STATUS); 


!' Get the device characteristics and do device type validation: Make sure 

' the device is mountable at all, and check that the mount qualifiers are 

' consistent with the device type. A mismatch between or inery and secondary 
ge see cheractertstics indicates a spooled device or something else strange. 
' Reject such, 
4 
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PSLSCTEXEC); 
| 
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OR NOT .DEVICE_CHARCDEVSV_FOD) 
THEN ERR_EXIT TSSS_NOTFILEDEV); 


IF NOT .DEVICE_CHARCDEVSV_AVL] THEN ERR_EXIT (SS$_DEVOFFLINE); 
IF .DEVICE_CHARCDEVSV_MNT) THEN ERR_EXIT (SS$_DEVMOUNT); 
CLEANUP_FLAGSCCLF_CLEARVALID] = 1; ! device is now known not mounted 


; Some things to be tested on the Ist only and then stored anyway 


-J EQL 0 
THEN 
BEGIN 
is it a tape or disk mount 


VAX-11 Bliss-32 V4.0- 
DISKSVMSMASTER: CMOUNT 


SGETCHN (CHAN = .CHANNEL, PRIBUF = DEVCHAR_DESC, SCDBUF = DEVCHAR_DESC2); 
IF CHSNEQ ad tints watt DEVICE CHAR, DIBSK_LENGTH, DEVICE _CHAR2, 0) 
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STORED_CONTEXT CTAPE_MOUNT) = .DEVICE_CHAR CDEV$v_SQD]; 
! we need only to test if we ore going to overide something 


once ( and then just save i 


IF ( .MOUNT_OPTIONSCOPT_FOREIGN 
OR .MOUNT”OPTIONSEOPT-OVR_ACC 


OR .MOUNT_OPTIONS 
OR :MOUNT~OPTIONS 
OR :MOUNT~OPTIONS 
OR :MOUNT~OPTIONS 


OR .MOUNT-OPTIONS ort OR LOCK] O 


THEN STORED_CONTEX 
ELSE STORED-CONTEXT 


OPT IONSCOPT_OVR 
= 
OVERIDE~ SOMETHING 


device number must match Label number for disk 
iF (NOT .STORED_CONTEXT CTAPE_MOUNT]) AND 
(.DEVICE COURT NEQ .LABEL_COUNT) AND (.LABEL_COUNT NEQ 0) 
THER ERR_EXIT (MOUNS_DEVCOUNT) ; 


END; ! End of block to be executed for first device only. 


test legal options for device type 
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BEGIN 
IF “DEVICE CHARCBEVSV_S0D) 


N 
((,OPTIONSCO) AND NOT TAPE_OPTIONS1) NEQ 0 
OR (.OPTIONS([1] AND NOT TAPE_OPTIONS2) NEQ 0) 


LSE 
((, OPTIONSCO) AND NOT DISK _OPTIONS1) NEQ 0 
OR (.OPTIONSC1] AND NOT DISK_OPTIONS2) NEQ 0) 


THEN ERR_EXIT (MOUNS_ILLOPT); 
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! device types must be consistent 
' tapes with tapes or disks with disks 


' 
i 
' 
IF = -DEVICE_CHAR CDEV$V_SQD] AND .STORED_CONTEXT CTAPE_MOUNT]) 


(, DEVICE CHAR CDEV$V_SQD] AND NOT .STORED_CONTEXT CTAPE_MOUNT]) 
THEN ERR_EXIT (RMOUNS_INCONSDEV) ; 


i Now attempt to read the home block or volume header Label, as appropriate 
for the device type. 


IF .DEVICE_CHARCDEV$V_SQD) 
THEN 


ae = READ_VOLLABEL (LABEL_STRINGC.J*2]) 
STATUS = READ_HOMEBLOCK (LABEL_STRINGC.J*2], NOT .MOUNT_OPTIONSCOPT_FOREIGN)); 


' 
i Now check the status of the volume against the various mount options. Note, 
in particular, whether the user is attempting to override volume protection. 


MOUNT prligustert -IS_FILES11] = 1; ' assume volume is Files-11 
IF NOT .STAT 
THEN BEGIN 
IF .STATUS EQL SSS$_NOHOMEBLK OR sche he | EQL SS$_NOTLABELMT 
ipa if home block is not found 


MOUNT OPTIONSCOPT _ 1S_FILES11 
IF NOT . MOUNT OPTIONS iit FORE 1643 
MOUNT “OPTIONSLOPT~NOLABEL }) 


HARCDEV$V_SQD) 

T (. STATUS) 

T (STATUS, 0, MOUNS VOL IDENT 

HM2$S_VOLNAME, HOME OcKtunssy VOLNAME], 

wn $s- “OWNE RNAME spt BLOC ALG AN2ST OWNERNARE] 
HM2$S-FORMAT, HOME_BLOCK T_FORMAT 
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END 
at ~-STATUS EQL SSS_INCVOLLABEL ! if volume Label mismatch 


DONO US WN "OOO NOW 


ONSCOP 
Tl oustrt fo FORE 16 } 
TIONS 
enn v$v sop) 

({STA ATUS. 0, MOUNS_VOLIDENT 

HM2$S_VOLN AME HOME EBLOCKCHMSS1 VOLNAME } 
HM2$S— OWNERN. BLO¢ CHM HM2ST OUNERNAME 
HM2SS— PORRAT. og oBLOCK HM2$T_FORMAT 
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! Get the device context, if it exists. This is necessary to 
! make sure that mounts of the same device from different nodes 
' are consistent. 


79 5 ELSE 
1 5 MOUNT OPTIONSCOPT_IS_FILES11] = 0; ! Clean up option flag. 
¢ : ERR_ERIT (.STATUSS; 
END; 
40 END; 
5 cg 
tz are overiding something with a files-11 mount 
89 + if .MOUNT_OPTIONSCOPT_IS_FILES11] AND STORED_CONTEXT COVERIDE_SOMETHING) 
ioe 
bs Call the device specific routine that actually does the mount. 
51 
Be IF .DEVICE_CHARCDEV$V_SQD) 
B38 THEN - 
854 BEGIN 
855 MOUNT_TAPE (); 
636 KERNEC_CALL (XFER_DEV_OWNER, . CHANNEL); 
85 END 
858 ELSE 
859 BEGIN 
860 
861 
b6¢ 
86 
864 
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86 
, 508 not (STATUS = KERNEL_CALL (GET_DEVICE_CONTEXT)) 
; se8 ERR_EXIT (.STATUS); 
, 579 a -MOUNT_OPTIONSCOPT_IS_FILES11B) 
1 a6 MOUNT_DISK2 () 
17 87 ELS 
+ are ' MOUNT_DISK1 (); 
0 876 i If we are mounting a shared volume on an allocated device, deallocate the 
1 877 ! device now. We delayed the deallocation until now so that if the mount 
¢ 378 } failed, the device remained allocated. 
4 880 5 IF NOT .MOUNT OPTIONS COPT_NOSHARE) 
5 881 THEN KERNEL_CALL (DALLOC_SHR DEV, .CHANNEL) 
$ Hy ELSE KERNEL_CALL (XFER_DEV_OQNER, .CHANNEL); 
8 4 END; 
9 5 
0 § ! 
1 : i Deassign the channel. 
5 9 S$DASSGN (CHAN = .CHANNEL); 
5 591 END; ! shared mount path rejoins us here 


a 4 
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i } i } : END; ! end of rebind block 

:1 1894 ' 

: 1 39 ! ot Clean out status values for the next time around the Loop. 

> 124) 189 

3; 124 189 CLEANUP_FLAGS = .CLEANUP_FLAGS AND (1*°CLF_REBUILD OR 1°CLF_REBUILDQUO’ ; 
31 28 189 CHANNEL™= 0; - of reenaee 

3 12446 1309 REAL_MVL = Q; 

> 1245 1901 2 REAL“RVT = 0: 

3 Y 28 19 REAL_VCB = 0; 

3; 124 19 REAL-FCB = 0; 

: 1248 19 REAL“WCB = 0; 

3 12469 1905 REAL _AQB = OQ; 

: 1 30 1906 MTL_ENTRY = 0; 

> 1251 190 SMTC_ENTRY = 0; 

: 1 3 1908 TIONS) = -OPTIONSEO AND NOT RESET OPTIONS; 

3; 125 190 OPTIONSL1) = .OPTIONS{1) AND NOT RESET_OPTIONS2; 

3 1254 1910 T FAILED = 0; ! Indicate that the mount worked. 

; 1255 1911 RETURN (SS$_NORMAL) ! Return success status 

3; 1256 1912 1 END; ! end of MOUNT_VOLUME 


~PSECT S$PLITS,NOWRT,NOEXE,2 


001C 00000 P.AAA: .WORD ; 
OFC 0002 “WORD 6 ; 
00000000" 00004 “ADDRESS ALLDEVNAM_BUF +4 ; 
00000000" 00008 “ADDRESS ALLDEVNAM_DESC : 
00000000 0000¢ “LONG 0 ; 
0004 9010 P.AAB: :WORD 4 ; 
1000 0001 “WORD 4304 : 
00000000 00014 LONG 0 : 
90000000 00018 LONG ; 
0000000 0001C LONG 0 : 
.EXTRN DEV_CTX MOUNT F AILED 
-EXTRN LABEL_COUNT, DEVICE STRING 
“EXTRN LABEL “STRING, SEARCA_VOL 
-EXTRN TRAN_COGNAME D_VOLLABEL 
-EXTRN READ HOMEBL Ex, MOONT TAP 
-EXTRN MOUNT DISK1, MouNT_DISK2 
-EXTRN GET_DEVICE_CONTEX 
EXTRN SYSSGETSYIO, SYSSENQW 


"EXTRN SYS$GETCHN 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 MOUNT_VOLUME : 
WORD 
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2 Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 > 1436 ; 

58 00 06 00 9 Be MOVAB LABEL STRING, R11 ; : 

A G 6 9E MOVAB LIBSSTOP, R1 : ; 

9 G 9E MOVAB MOUNT OPTIONS, R9 3 ; 

8 F 9 MOV DEVICE CHAR, R8 ; 3 

7 4 § SUBL2  # 6. gn ; ; 

14 AE 00000000' EF 0 MOVCS #16, P.AAA, DEVICE_ITMLST1 : 1487 ; 
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04 AE emia * 1 
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#319 OPTIONS +4 
MOUNT_FAILED 
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#26 
Hi, SYSSENQW 
#1 
SP 
SEARCH_VOL 
#4, SUSY SSCMKRNL 
RO, 
STATUS, 2$ 
J, RO 
PHYS NAMECRO) 
#1, RO, R 
LABEL STRING+4(R1) 
#2, R 
LABEL _STRINGCRO} 
#7512067 
#5, LIBSSIGNAL 
STATUS, #7 
TUS 
"1 YiBsstop 
ad, Rev ACQUIRED 198 
Ra, DEVZALLOCATED, 9$ 
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9F 00165 
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DD 00168 
FB 0016D 
DO 00174 
£8 00177 
DD 0017A 
FB 0017C 
: OO17F 118: 
C 00185 12$: 
OF 00187 
i 
b8 0197 
E8 0019A 
DD 0019D 
FB 0019F 
9F OO1A2 13S: 
ge Rit 
D4 BiAe 
iB ois 
1B 
att 
RP if 14$ 
FB OOIcCcC 
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F D 
108 
O10B 16$: 
A OO1E 


iss 
MSMASTE 
#4, aa 
RO rise 
- TATUS, 
05536, § US, RO 


AX- 
ISK 
SEARCH DEV 
ib 


RO, #320 
#4, MOUNT_OPTIONS+6 
TAT 


#1, LIBSSTOP 
status, #1601 


#2, CLEANUP_FLAG 
R4, CLEANUP_ALLO 
R4, DEV ALLOCATE 


d HH 
1<R4), PHYS_COU 


Ss 
C, 
D, 
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-(5P) 
ALLDEVNAM_DESC 
LOCK_STATUS 

#5 


#26 

#11, SYSSENQW 
U 

STATUS, 11$ 

#1, LIBSSTOP 

R4 ppEV_ACQUIRED, 12$ 


=( 


ST 
#1, LIBSSTOP 
DEVCHAR_DESC2 


DEVCHAR_DESC 
=(SP) 

CHANNEL 
#5, SYSSGETCHN 


#116, DEVICE_CHAR, DEVICE_CHAR2 
DEVICE CHAR®1, 15$ 
(SPY 


ys 
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6A 1 FB OO1E4 CALLS #1, LIBSSTOP ; ’ 

FB28 = CB 80 y 8 16? 17$: gr eb3 #128, CLEANUP_FLAGS + 1731 ; 

4 b 1€D TSTL = RG t 1736 ; 

; 1EF BNEQ 218 ; : 

50 68 1 EF OO1F1 EXTZV #5, #1, DEVICE CHAR, RO + 1742 ; 

FBOC «CCB 1 0 ’ FO 001F6 INSV RO. #0, #1, STORED CONTEXT : ; 

D 01 A9 EO OO1F BBS #3, MOUNT_OPTIONS+T, 18$ + 1747 i 

: 1 a9 4 £0 0020 BBS #4; MOUNT-OPTIONS+1, 18$ : ; 

4 Ad 6 £0 00 0 BBS #6, MOUNTOPTIONS+4. 18$ + 1748 ; 

if A 1 €0 0020¢ BBS #1, MOUNT“OPTIONS+2. 18$ : ; 

1 AS 4 £0 00211 BBS #4. MOUNT-OPTIONS+2, 18$ + 1749 ; 

14 02 Ag E 0 16 BBS #3, MOUNT-OPTIONS+2, 188 : : 

OF 05 a9 E 1 BBS #2; MOUNT“OPTIONS+5. 18$ + 1750 : 

OA 02 A9 02 €0 00 BBS #2, MOUNT“OPTIONS+2, 18$ : ; 

05 6 a9 EO 00 BBS a. MOUNT-OPTIONS+6, 18$ + 1751 ; 

07 07 «Ad 4 El 020A BBC #4. MOUNT~OPTIONS+7, 19$ ; : 

FBOC «CCB : 88 0 f 18$: B1SB2 56 STOREB_CONTEXT + 1752 : 

FBOC «CB 08 8A 00236 19$:  BICB2 #2, STORED_CONTEXT + 1753 ; 

iE FBOC ¢ E8 00238 20$:  BLBS  STORED_CONTEXT, 218 : 1757 ; 

000000006 00 000000006 00 b 0 40 CPL DEVICE-COUNT, LABEL_COUNT : 1758 : 

000000006 00 03 0 4p TSTL ABEL_COUNT : ; 

9 13 0025 BEQL 1$ : ; 

0072818c 8F DD 00 55 PUSHL #7504268 + 1759 ; 

6A 01 FB 00258 CALLS #1, LIB$STOP : ; 

3 68 05 €1 0025€ 21$: BBC #5. DEVICE CHAR ges + 1768 : 

0388610 8F 69 D3 006 BTL OPTIONS, #5926956 : 1770 ; 

C1B3E787 = BF 04 a9 0§ 00 68 BITL PTIONS+4, #-1045174393 : 1771 : 

00317003 8F 69 D3 00275 22$:  BITL OPTIONS, #3239939 : 1773 ; 

OA 1 00 7¢ BNEQ 4$ : : 

3C0018E7 = BF 04 Ad D3 O027E BITL  OPTIONS+4, #1006639335 : 1774 ; 

09 13 00286 238: BEQL  25$ : : 

00728034 8F DD 00288 24$:  PUSHL #7503924 : 1776 ; 

6A 01 FB O028E CALLS #1, LIB$STOP : ; 

09 68 5 €0 00291 25$:  68BS #5. DEVICE CHAR, 36s + 1781 ; 

09 FBOC c8 E8 00295 BLBS §§ STORED CONTEXT, 27$ : 3 

OE 68 05 £1 0029A BBC #5, DEVICE CHAR, 2 : 1783 ; 

09 FBOC §=«6—CBSCES8 00 H 368: BLBS ST RED CONTEXT, 28$ : ; 

00728184 8F DD OO2A3 27$: PUSHL #750428 > 1784 : 

6A 01 FB 029 CALLS #1, LIBS$STOP : F 

50 54 01 7 ac 28$ HL =o #1. _-R4, RO : 1793 ; 

38 6B40 DE B MOVAL LABEL_STRINGCROJ, R2 : : 

09 é 93 E B4 #5, DEVICE_CHAR, 29$ : 1791 ; 

: DD 00288 PUSHL R : 1793 ; 

00006 CF 0 Fe BA CALLS #1, READ_VOLLABEL : ; 

19 1 BF BRB 308 ; ; 

7E 01 Ag 01 03 EF cy 298 EXTZV #3, #1, MOUNT_OPTIONS+1, -(SP) + 1795 ; 

6E : D2 002C¢ MCOML (SP), (SP) : : 

DD O02CA PUSHL R : ; 

00006 CF : F CC CALLS #2, READ_HOMEBLOCK : ; 

7 p D1 30$ MOVL RO. STATOS : ; 

04 Ag ¢ D4 BISB2 #2. MOUNT OPTIONS+4 + 180 ; 

67 F D8 BLAS = STATUS, 38 : 180 3 

000008E0 8F 7 D1 00208 CMPL STATUS. #2272 > 180 ; 
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v04-002 eae rie aed eS eo es a) 
13 002€ BEQL «6s 318 ; 
000001DC =F 3 pb} x CPL siatus. #476 : | 
04 Ad ; BA OOCED 31$:  BICB2 ie: MOUNT_OPTIONS+4 t 1808 | 
4c or A E F1 BBS #3, MOUNT-OPTIONS+1, 368 + 1809 | 
4 1 a9 4 F r6 BBS a4 MOUNT“OPTIONS+1, 36$ : 1810 
0000010c SF 2 p1 FD 32$: cHPL TATUS, #268 : 1825 
03 Ad 38 06 TSTB ROUNT _OPTIONS+3 > 1823 
37 18 0030 BGEQ = 3 : 
32 01 Ad 3 £ 0 0 BBS #3, MOUNT_OPTIONS+1, 368 : 1824 
gD 02 Ag : E 6 BBS #6. MOUNT OPT IONS+2 6$ + 1825 
4 68 f 0315 33$: 88S : ICE_CHAR, 35$ + 1827 
FO AB oF 00 19 PUSHAB HOME _BLOCK7496 ; 1832 
E4 as oF 09 3 PUSHAB HOME BLOCK +484 : 
D8 «AS OOF 8 3 PUSHAB HOME_BLOCK+472 ; 
oC DD 003 é PUSHL #12 : 
6 DD 003 PUSHL us F 
00724008 ar DD 005 A PUSHL #7512075 ; 
$5 DD b033o PUSHL STATUS : 
6A OA FB 00334 CALLS #10, LIBS$STOP t cesel 
04 Ad 0¢ BA 00339 34$ BICB2 #2, MOUNT_OPTIONS+4 : 1837 
DD 00330 35$:  PUSHL STATUS + 1838 
6A 01 FB 0033 CALLS #1, LIBSSTOP : 
OA 04 Ad 01 €1 0342 36$: BBC #1. MOUNT OPTIONS+4, 37$ + 1845 
04 FBOC «CB 01 3 0034 BBC #1. STORED CONTEXT, 37$ : 
04 a9 01 88 00340 BISB2 #1. MOUNT OPTIONS+4 + 1846 
8 05 €1 00351 37%: BBC #5. DEVICE_CHAR, 38$ : 1852 
meee A ee a ee 1 
a ea i fos 
00006 CF 9F 5036 PUSHAB GET _DEVICE CONTEXT : 
000000006 9 O3 i 00364 CALLS #3, aHsys TMKRNL 
05 57 € OO36F BLBS = STATUS, $35 : 
57 DD 0037 PUSHL STATUS + 1868 
6A 1 FB 00373 CALLS #1, LIBSSTOP : 
07 04 Ad 2 £1 00376 39$: BBC a3. MOUNT _OPTIONS+4, 408 : 187 
00006 CF i Fe 0 {8 CALLS #0, MOUNT “DISK ; 187 
00006 CF 09 Fe 0 é 40$: CALLS #0, MOUNT_DISK1 + 1874 
4 € 41$: 6BS #4. MOUNT“OPTIONS, 428 : 1880 
FB2C cf bp 0 8 PUSHL CHANNEL ; 1881 
9 bp 6 } PUSHL SP : | 
00000000v ai Hi 93 PUSHAB DALLOC_SHR_DEV : 
FB2C t pp 38 428: PUSHL CHANNEL 1882 
¢ BD Al PUSHL SP : 
00000000v EF 9F 003A3 PUSHAB XFER_DEV_OWNER : 
} 
rs 


18-50-1964 01:00: 


4 01:00 VAX-11 Bliss=32 V4.0-742 
tM Se Pee RAL St eRe Hote Skcavmounr.0s208* 
000000006 9F oes 04 FB 49 43$: CALLS fhinte aS YSSCHKRNL Pes 
000000006 0 0 FB 00384 CALL ; 
798 08 FFFFFOFF BF CA OO3BB 44$: grets A CLEANUP. FLAGS + 1898 
£82 C b4 C4 CLRL + 1899 
i eS i 
110 ¢ Ti 56 CLRO = REAL“FCB + 190 
Sa Sa a. 
04 ad $389 BF AA 0030 Bicw2 #51 OPTIONS + 190 
gq 000000006 89 Oe BOtEe CLL ROUNE FAILED : 181 
04 00368 RET : 191 
0000 3 EC 45$ -WORD Save nothing ; 148 
7E D4 O03E CLRL = = (SP) ; 
ee a1: ee eer 3 
00000000v_ EF 0s FB 0036 CALLS #3, MAIN_HANDLER : 
04 003FD RET : 


; Routine Size: 1022 bytes, Routine Base: S$CODE$ + 0282 


1§-se0-19 4 91:90:36 VAX=11 Bliss-32 V4.0-7 


42 P 9 
v04-002 12-Sep-1984 11 DISKSVMSMASTER: CMOUNT.SRCIJVMOUNT.B32:3> a VO 
38 4 ROUTINE MAIN_HANDLER (SIGNAL, MECHANISM) = 
60 91 '++ 
61 91 
66 4 FUNCTIONAL DESCRIPTION: 
64 91 This routine is the main level condition handler for the MOUNT 


utility. It undoes anything that MOUNT has done so far and returns 
the condition code as status to MOUNT's caller (i.e., the CLI). 


CALLING SEQUENCE: 
MAIN_HANDLER (ARG1, ARG2) 
INPUT PARAMETERS: | 
ARG1: address of signal array 
ARG2: address of mechanism array 


IMPLICIT INPUTS: 
NONE 


MEAN $9 OONOV FW" OOONOU Ew 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
stack unwound, control passed to CLI 


OOWNO VE WH" O OONO UE WIN" OO@ 


Pree 


SIGNAL : REF BBLOCK, ' signal array 
MECHANISM : REF BBLOCK; ! mechanism array 


EXTERNAL 
USER_STATUS : VECTOR; ! status return of some routines 


oOOOOOOOVOVOOVNOOONO 


PAVIA 


HF 7S UCL CCHF OL 516 WANED NEQ SS$_UNWIND 
BEGIN 
Do cleanup as indicated by the status flags. 
ae ee CSIGNALCCHFSL_SIG_NAME], STSSV_SEVERITY] EQL STSS$K_SEVERE 


BEGIN 
a » CLEANUP_FLAGSCCLF _DISMOUNT) 


KERNEL_CALL (FORCE _DISMOUNT); 


o 
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zs 


RETURN SS$_RESIGNAL; 
END; ! end of routine MAIN_HANDLER 


: 1315 1970 4 

: 181 1971 4 F .CHANNEL NEQ 0 

= 7 1998 th NBEGIN 

: 4 i8 197% IF NOT .CLEANUP FLAGSECLE DISMOUNT) 

: 1378 in . CLEANUP_FLAGSCCLF_CLEARVALID] 
:4 1977 6 BEGIN 

74 § P 1978 6 DO_10 (CHAN = .CHANNEL 

> 1324 P 197 6 FUNC = (IO$_AVAILABLE OR IOSM_INHERLOG), 
; 5 P 19 0 = MOUNT_EFN 

:1 8 19 ‘ 4 IF .STORED CONTEXT CTAPE_MOUNT) 

: ! 3 + ? THEN KERNEC_CALL (CLEAR_QALID); 

: 1330 1985 SDASSGN (CHAN = .CHANNEL); 

> 1331 19 : CHANNEL = 0; 

: 1388 1988 : 

: 4 1989 4 ' 

: : 5 bas ? Zero the various cleanup flags. 

:1 199 4 CLEANUP_FLAGSCCLF_DISMOUNT) = 0; 

> 1338 1993 4 CLEANUP" FLAGS(CLF-~CLEARVALID) = 0; 

: 1339 199% 4 CLEANUP ~FLAGSCCLF~DEASSTEMP) = 0; 

: 1340 1995 4 

3 : 41 pa — END; 

: 1368 ie et ee eee 
3 : Resigna t ° t t « 
4 5 2000 : 9g e con on oes not arrec 
igs 

> 1348 $ 


Sss 
wr 


SES 


.EXTRN COMMON_IO 
000C 00000 MAIN_HANDLER: 
. WORD 


Save R2,R3 
53 900000006 9F 9E 0000 MOVAB aA#SYSSCMKRNL, R3 
32 0000000' EF 9E 00 MOVAB CLEANUP_FLAGS, R2 
5 04 AC D 10 MOVL SIGNAL,~R 
00000920 &F 4 Ao D4 16 CPL 4 (RO), #2336 
04 04 Ad 03 3 ff IE CHPZV #0, #3, 4(RO), #4 
0D 62 8 a 6 BBC #6, CLEANUP_FLAGS, 1$ 
E 04 A CLARL 3s = ( §P) 
5E BD C PUSHL SP 
00000000v ai F PUSHAB FORCE DISMOUNT 
3 F CALLS #3, SYSSCMKRNL 
06 =A p 7 1$: TSTL HANNEL 
4 A BEQL 4 
30 62 06 f 9 c BBS #6, CLEANUP_FLAGS, 2% 
6 4 TSTB = CLEANUP_FLAGS 


? 
ep-1984 01:00: VAX=11 Bliss=-32 V4.0-74 p 4 
sory 8be $1:92i8s «| SN KsumBmASTERSCHOUNT. SkcavmounT.8326$%° (A>, 
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1SSeoc198¢ 91:98:98 DISKSVMSMASTER: CMOUNTSRCIVMOUNT.832:8°° (8) 


gC & 42 BGEQ 3s : 
E C 0004 CLRQ 3s = (SP) + 1981 

, ¢ 46 CLROQ = (SP) : 

E 7C€ 0004 CLRQ ss = (SP) : | 
pe gaaee RO cp : 
7E 0811 =8F Re 4f MOV EuL 79065 -(SP) : 
04 A2 DD PUSHL CHANNEL : 
1A 0D é PUSHL # $ : 
000000006 00 0¢ FB CALLS #12, COMMON_1O ; 

D E64 Ad €E F LBC  STORED_CONTEXT, 2$ : 1982 
7E D4 6 LRL = = (SP) + 198 
5E bd 0 PUSHL SP : 

00000000v ai F 0006 PUSHAB CLEAR VALID : 
63 ; FB 360 CALLS #3, SYSSCMKRNL : 
04 A2 Do 9 2$ PUSHL CHANNEL + 1985 
000000006 00 01 FB 0007 CALLS #1, SYSS$DASSGN : 
04 A2 04 OOO7A CLRL. CHANNEL + 198 
4 40 af A 0007D 38: BICB2 #64, CLEANUP_FLAGS + 199 
5 80 8F 8A 00081 BICB2 #128, CLEANUP FLAGS : 199 
6 10 8A 00085 BICB aig CLEANUP _FLAGS + 1994 
50 0918 8F 3C 00088 4$: MOVZWL #2328, RO > 2001 
04 00080 RET > 2003 


; Routine Size: 142 bytes, Routine Base: S$CODE$ + 0680 
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2 V4.0-742 Page (38 


-00 : (MOUNT. SRCJVMOUNT .B832 
9 : ROUTINE FORCE_DISMOUNT = 
§ lee 
' 
| 3 } FUNCTIONAL DESCRIPTION: 
$ ti i This routine initiates a dismount on the volume just mounted 
5 011 ! (usually because an error occurred eyr'ing the /BIND processing). 
28 oe This routine must be called in kernel mode. 
60 014 1! 
1 31? ' CALLING SEQUENCE: 
§ 818 ; FORCE_DISMOUNT () 
01 i INPUT PARAMETERS: 
5 9 NONE 
021 i IMPLICIT INPUTS: 
68 0 § ! MTL_ENTRY: address of mounted volume List entry just created 
; Z SMTC_ENTRY: as above, for volume set if non-zero 
ft : ; OUTPUT, PARAMETERS: 
7 i 
74 8 ! IMPLICIT OUTPUTS: 
Ne , NONE 
i ! ROUTINE VALUE : 
79 i 
80 4 ' SIDE EFFECTS: 
81 5 ! volume dismounted 
8 $ ! 
a lee 


BEGIN 


BUILTIN 
REMQUE; 


LINKAGE 


oo 
~ 


10C_DISMOUNT F = 6, REGISTER = 3, REGISTER = 4) : 


= JSB 

NOPRE 
EXTERNAL 

SCHSGL_CURPCB =: REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 

! address of process PCB 


EXTERNAL ROUTINE 
10C$D 1 SMOUNT : IOC_DISMOUNT ADDRESSING_MODE CCENERA ) 3 
! system dismount routine 


LOCAL 
: REF BBLOCK; ' address of mount List entry 


SSS SS SSS SEE EEE SERPS COS S OCR ERR S SS 
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REMQUE (.MTL_ENTRY, MTL); 
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$ 
g 


) 

| 

| 
IF SMTLENTRY NEG 0 
HEN 


: 1407 IOCSDISMOUNT (.MTL, 1, .SCHSGL_CURPCB); 

3; 14 

; 1219 

$141 5 BEGIN 

: 141 REMQUE (.SMTL_ENTRY, MTL); 

; 141 10¢ DISMOUNT T.MTL, 1, .SCHSGL_CURPCB); 

3 1415 § 

; 1416 070 2 RETURN 1; 

: 161 071 

3; 1418 072 END; ! end of routine FORCE_DISMOUNT 


OFFC 00000 FORCE_DISMOUNT: 
. WORD 


57 00000006 90 9E 9002 MOVAB IOCSDISMOUNT, R7 ; 
5 000000006 9F 9E 000 MOVAB @ASCHSGL_CURPCB, R5 ; 

56 00000000' FF OF 0019 REMQUE @MTL_ENTRY, MTL : 2060 

54 65 D9 001 MOVL SCHSGL _CURPCB, R4 : 2061 
53 1 DO OOOIA MOVL #1, R 3 
67 16 0001D JSB 10€$D1 SMOUNT ; 

50 00000000° cf DO O001F MOVL § SMTL_ENTRY, RO + 2063 
B 13 00026 BEQL ‘i$ ; 

56 60 OF 00028 REMQUE (RO), MTL : 2066 

54 : DO 00 B MOVL SCHSGL _CURPCB, R4 > 2067 
53 1 00 0002€ MOVL #1, R : 
67 16 00031 JSB 10€$D1SMOUNT : 

50 01 00 00033 1$: MOVL #1, RO + 2070 

04 00036 RET : 2072 


; Routine Size: 55 bytes, Routine Base: SCODES + O70E 
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-EXTRN GET_CHANNELUCB 


vou-002 ihose Beer 18Be 1:15:88 — DESKSVMGRASTERCMOUNT. SRCIVMOUNT.B32~ 


SS 


0000 00000 CLEAR_VALID: 
WORD sexe 2 petneng 
0000G CF ware 1 FB 0006 cits | a i +) aaa 
a bi Hh: fe 


1 DO O000F MOVL 
4 00012 RET 


; Routine Size: 19 bytes, Routine Base: S$CODE$ + 0745 
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: 
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GLOBAL ROUTINE DALLOC_SHR_DEV (CHANNEL) = 


eo 


FUNCTIONAL DESCRIPTION: 


uw perk ert 3 P= Te} 


, at at et eee 


senvert | t into a CR mode lock. 
CALLING SEQUENCE: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

kernel_call (dalloc_shrdev, .channel) 

This routine must be called in kernel mode. 
INPUT: 
CHANNEL = channel to the device which is being mounted 
OUTPUT: 
None. 
IMPLICIT INPUT: 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 
le 


Mount data base 
Device is being mounted /SHARE, /GROUP, or /SYSTEM. 


IMPLICIT OUTPUT: 
None. 
ROUTINE VALUE: 


AVIS SSLEALINLSS 


SSIESE 


1 if control is returned to the caller. Otherwise, the procedure 
signals an error. 


SIDE EFFECTS: 
Device is deallocated. Device lock is converted to CR mode. 


BEGIN 


EXTERNAL ROUTINE 
GET_CHANNELUCB: ADDRESSING_MODE (GENERAL) 


© Se Se Se ee Be Se Ge Se Ge Be Be Ge Se Ge Se Ss Se Se Ss Se Se Se Ge Se Se Ge Se Se Ss Se Se Se Se Se Fe Ss Os Se Oe Se OH Se Se Sete eeee 


LOCAL 
TATUS ' Status of SENQ call. 
LOCK_STATUS: VECTOR (2), i Lock status block. 
UCB: REF BBLOCK; ' UCB of device. 


a ee ee a et ee ee ee ee ed ed ed et od = dt 
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ucB = GET_CHANNELUCB (. CHANNEL); ! Get the UCB address. 


: 


: 
g 
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000000006 68 


$L P43 
K Cucé UCBS 
UCBSW_REFC 


If an exclusive lock solete:' convert ts to CR mode. 
-UCB CUCBSL_LOCKID] NEQ 0 

THEN . 

ATUS (1) = 


| Deallocate the local UCB. 
ucB cuce 

0 “FevcHaR] 
“UCB CuCcé 


LKSB 
tt ane 


! End of routine DALLOC_SHR_DEV. 
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DISKSVMSMAS STER: C MOUNT. ¢Rc]VMOUNT. 832: 


! We already know that this is a shared mount; check to see if the device 
was previously allocated. 


iF .UCB CUCBSL_PID] NEQ 0 
THEN BEGIN 


peNey gull, = 0; 


-UCB CUCBS 
STATOS. = SENQW (ACHODE = = Asunt 


Gs fie ioe OR LCKSM_CVTSYS), 
>t NOT .STATUS THEN ERR_EXIT (7STATUS): 


Hine SHR_DEV, Save nothing 
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; Routine Size: 83 bytes, Routine Base: S$CODES + 0758 
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; } $¢ \3 ! GLOBAL ROUTINE XFER_DEV_OWNER (CHANNEL) = : 
: 1564 15 1 !44 | ; 
> 1565 \§ 1} | : 
3 : 26 ! ! FUNCTIONAL DESCRIPTION: : 
: 1568 i$ 1 This routine locates the UCB associated with the channel passed to ° 
, 3 4 » 33 it as an input argument. If current process is a subprocess, then | : 
: 1570 Pe the device ownership is transfered to the top level process in the . 
; : } ¢ : process tree. This is necessary to support job-wide mount. : 
51 - 4 1 i Note: we pec tyre the transfer of ownership diy 4g by setting the . 
3 1574 Boe master's PID into the UCB. This is sufficient because the lock on ; 
3; 1575 § 1! this device is not tied to this process, i.e. it is a system-owned ° 
Bt ‘Bl eae | 
; 1378 2 | i CALLING SEQUENCE: 
; 1380 31 KERNEL_CALL (XFER_DEV_OWNER, . CHANNEL) 
: 158 : 1 i This routine must be called in kernel mode. : 
: 158 4 1! : 
; 1384 35 i INPUT: ‘ 
; 1388 3? ' ; CHANNEL = channel to the device which is being mounted ; 
: 1388 39 1 | output: 
: 1330 41 ! None. : 
; 1398 “8 IMPLICIT INPUT: ; 
: 1594 45 1! Mount data base. 3 
; 1393 seg ' Device is being mounted /NOSHARE. : 
; 1397 g48 ! IMPLICIT OUTPUT: ; 
: 1599 $35 1: If the current process is a subprocess, then the device is : 
3; 1600 ee allocated to its master, 3 
3; 1601 26 1! else 3 
1888 ae as : 
> 1604 55. 1 ' ROUTINE VALUE: ; 
3; 1605 3$ 1! 3 
{i809 8 Ti Ms ; 
> 1608 59 1 | SIDE EFFECTS: : 
3; 1609 60 1! 3 
3 1610 61 1! None. : 
3 1611 6 1! 3 
igs Ee : 
: 1614 69 BEGIN 
: 1616 6? 5 EXTERNAL ; 
3; 161 68 SCHSGL_CURPCB =: REF BBLOCK ADDRESSING_MODE (GENERAL); 3 
: 1618 2269 ! address of our PCB 3 
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; Routine Size: 


1650 


~m 


2301 


1 


7 
0 EXTERNAL ROUTINE 
ie GET_CHANNELUCB : ADDRESSING_MODE (GENERAL); 
74 LOCAL 
75 J18 : REF BBLOCK, ' JIB of current process 
6 ucB : REF BBLOCY: ' UCB of device. 
u8 UCB = GET_CHANNELUCB (.CHANNEL); ! Get the UCB address. 
0 i we already know that this is a private mount; check to see if the device 
1 was previously allocated for sanity's sake. 
§ if .UCB CUCBS$L_PID) NEQ 0 
84 TH 
$2 BEGIN 
87 i Check if the current process is a subprocess. If so, set the PID 
3 of the top level process in the process tree in the UCB. 
90 3 if .SCHSGL_CURPCB CPCBSL_OWNER] NEQ 0 
91 THEN 
4 4 BEGIN 
93 4 JIB = .SCHSGL_CURPCB CPCB$L_JIB]; 
94 4 UCB CUCBSL_PIDJ = .J18 CJIBSL_MPiD); 
95 END; 
96 END; 
97 
soe RETURN 1; 
2300 END; ! End of routine XFER_DEV_OWNER. 
0000 90000 ENTRY XFER_DEV_ 
04 AC 0D 44949 PUSHL CHANNEL 
000000006 00 01 fe 0000 CALLS #1, GET_CHANNELUCB 
2c =6©A0 «0605 0000C TSTL 44(UCB) 
16 13 0000F BEQL 1$ 
51 00000000G 00 DO 00011 MOVL SCHSGL_CURPCB, R1 
1¢ Al 0 0018 TSTL 28(R1) 
OA 1 $318 BEQL a 
51 0080 Ci 00 0001 MOVL 128(R1), JIB 
2c Ad 54 Ai 00 000 MOVL 84(J1B), 44(UCB) 
50 01 ? 00027 1$: MOVL #1, RO 
4 0002A RET 
43 bytes, Routine Base: S$CODE$S + O7AB 
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v04-002 12-Sep-1984 11:14: DISKSVMSMASTER:CMOUNT.SRCJVMOUNT.B32;3 (13) 

: 16 1 : 
: 1 § | GLOBAL ROUTINE MOUNT_CLUSTER (ITEM_LIST) = ; 
S ieee ts 
: 16 ? | FUNCTIONAL DESCRIPTION: 
: 1689 1 This routine pertoras the cluster-wide mount operation. ; 
; 1660 ; : It calls another routine to create a cluster-mount packet ’ 
; 1661 1} and then sends this mount request to other nodes in the ‘ 
3; 166 7: cluster. ; 
: 166 1! : 
; 1968 | CALLING SEQUENCE: ; 
: 1666 ; MOUNT_CLUSTER (ARG1) 
: 1668 ] | INPUTS: 
; 1929 : ARG1 : Address of the mount item List : 
: 1678 { QUTPUTS: 
: 1674 1 None. ; 
: 1676 { IMPLICIT INPUTS: : 
18 ao : 
; 1680 i QUTPUT PARAMETERS: ; 
188 ae ms : 
: 1684 ! IMPLICIT OUTPUTS: 
: 1686 1 | None. 
F 1688 | ROUTINE VALUE: : 
: 1890 1 i 1 : If success ; 
3 103) : } Otherwise : Status from comm primitive. : 
: 1698 | SIDE EFFECTS: | ; 
: Hb +4 : The mount request is sent to other nodes in the cluster. : 
; 1899 1 i- ; 
: 1699 : : 
1900 REGIN ! Start of MOUNT_CLUSTER | ; 
2 oe! 
; 1708 ITEM_LIST : REF BBLOCK; | ; 
> 1705 EXTERNAL ROUTINE | : 
; He IN_ CLUSTER : ADDRESSING_MODE (GENERAL), : 
; 170 SERD_ CLUSTER : ADDRESSING_MODE (GENERAL), : 
: 1708 GET_OIC : ADDRESSING-MODE (GENERAL); 3 


F Nadaieiens Rh S2 Sintec Re ee ge MR, hr Cee ce) ake a Leen eet NS EP glee gh 4 
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Q 


8 
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BR T10QSEE YMSUABAEHEE2NSs8i" eso osel8* 


; 1709 

; 1710 é EXTERNAL 

: a 63 MOUNT_OPTIONS : BITVECTOR VOLATILE; ! Parser option flags 

: 171 | 
: ay ee Define constants to calculate the size of the cluster-mount buffer 
i 1216 LITERAL | 
: 171 ITEM. SIZE = 12, | 
; 1718 NO_OF_ITEMS = 18, 
: 171 BUFFER SIZE = § ° 
: 1720 9 COMMENT SIZE = 80 
; V7 1 ITEM_LIST_SIZE = ( CITEM_SIZE®DEVMAX)*2 + (NO_OF_ITEMS*ITEM_SIZE) +4 ); | 
: 17 : LOCAL | 
3 1726 74 STATUS, 
: 1725 75 LENGTH, 

; i $ UIC; 

: 1728 78 2 OWN | 
3; 1729 79 BUFFER : VECTOR (OJ, ' Buffer area for 
; 1730 80 ' cluster-mount packet 
: if 1 + ITEM BUF : BBLOCK CITEM_LIST_SIZE), ! Item descriptors 

; 17 : Hy LABEL _BUF : BBLOCK CBUFFER_SIZE * DEVMAX], ' Volume Labels 

3 17 84 LOGNAR_BUF : BBLOCK C(BUFFER_SIZE_ * DEVMAX]), ! Legtcal names 

; 1735 85 ACPNAM_BUF : BBLOCK Se ' ACP name 

3; 17 HY] VOLSET BUF : BBLOCK CBUFFER SIZE ' Volume set name 

7 ? 87 COMMENT _BUF : BBLOCK CCOMMENT_SIZE4 i Comments 
: 1739 89 NAME _BUF : VECTOR CNAMEBUF _LEN * DEVMAX, BYTE], ! Device names 

; ins 30 BuF FER_END : VECTOR [0]; 

: 1748 3 LITERAL 

> 176 9 BUF FER_LEN = BUFFER_END - BUFFER; 

a: 

: 1 38 IF ( NOT .MOUNT_OPTIONS COPT_CLUSTER]) ) ' If not /cluster or not in a 

: 174 9 OR NOT ( STATUS"= IN_CLUSTERT) ) ' cluster environment, return 

3: 1748 $95 THEN ! immediately 

; ies? 44 RETURN 1; 

> 1751 401 CHSFILL (0, BUFFER_LEN, BUFFER); ' Zero buffer area 

3 1736 188 STATUS = MOUNT_ENCTPHER (,ITEM_LIST, BUFFER_LEN, BUFFER, LENGTH); 

3: 17 4 : Encipher the mount request 

3; 17546 4 If NOT .STATUS ' If error, return 
; 1739 405 THEN 
; 1? 6 40 RETURN .STATUS; | 
: 1738 408 2 UIC = KERNEL CALL (GET UIC); ' Get our UIC | 
: 175 6 STATUS = KERREL_CALL (SEND_CLUSTER, BUFFER, .LENGTH, .UIC); ! Broadcast the request 

; 1760 410 : Args (UIC) non-zero means a cluster-mount 
3 1793 rep RETURN .STATUS; 

: 1788 £18 END; ! End of MOUNT_CLUSTER 
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VMOUNT Sep-1984 VAX-11 Bliss-32 V4.0-742 P 3 
v04-002 i Hats Pi te 92: 3 DISKSVMSMASTER: (MOUNT. *SACIVMOUNT .83208°" (193 
-PSECT SOWNS,NOEXE,2 


99000 PERE Re; -BLKB 0 


LKB 604 
0025C LABEL_BUF : 
-BLKB = 1008 
0064C LOGNAM_BUF : 
L 1008 
OOA3C ACPNAM BUF: " 
gun ae 
OAye VOLSET _BUF : 
-BLKB 63 
OOABB -BLKB 1 
OOABC COMMENT BUF: ad 
00B0C NAME_BUF : 
LK 512 
0OD0C BUFFER_END: 
-BLK 0 


~-EXTRN IN CLUSTER, SEND_CLUSTER 
-EXTRN GET_UIC 


-PSECT S$CODES,NOWRT,2 


O1FC 99000 .ENTRY MOUNT CLUSTER, age’ R2,R3,R4,R5,R6,.R7,.R8B  ; 2303 ; 
8F fonK0000! EF OF 00008 WOVAR  BURTEAC Re ; 
5E 4 C3 60019 SUBL ; : 

OD 00006 CF 06 €1 0001 BBC a6, MOUNT_OPTIONS+7, 1$ : : 
000000006 99 99 FB 90019 CALLS #0 IN, CLOSTER : : 
3 8 ts $0 ; 1$ HT status. ‘ : 2399 ; 

4 00029 RET : : ; 

Opoc = BF 00 6E 09 be 2 A 2s: MOVCS #0, (SP), #0, #3340, BUFFER > 2401 : 
4080 8F BB 00 PUSHR #*M<R7,SP> + 2402 : 

7E oD9¢ i C 99 MOVZWL #3340, -(SP) : : 

4 AC DD 00038 PUSHL ITER IST ; : 

00000000v y 4 F 3 CALLS -ROUNT ENCIPHER : : 
6 0 D 4 MOVL RO, ATYS : : 

6 € 48 BLBC st TAY 15. : 3404 F 

E D4 48 cLRL : 2408 : 

000000006 F O004F PUSHAB af - ; : 

68 FB 3 CALLS @ MSS COKRNL ; : 

DD PUSHL + 2409 ; 

04 Ag DD A SHL LENGTH ; : 

DD D PUSHL R ; : 

3 DD F PUSHL ; : 

i pp 6 PUSHL SP F 3 

000000006 f PUSHAB SEND CLUSTER ; : 

68 6 FB 6 CALLS SYSSCMKRNL : 3 
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Vou-002 


; Routine Size: 115 bytes, 


: 17 


1764 


65 


3413 


1 
1 


iicgte: 


ee 


Routine Base: S$CODE$S + 07D6 


TS St 


MOVL 
MOVL 
RET 


RO, STATU 
STATUS, R 


ns 


lis 
MAS 


j 


ERSCMOUNT. SRCIVMOUNT .832, 99° (135 


: 241 
3; 241 
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; 1767 


3; 1 
3% 
3} 
3; 7 
; 1 
3 3 
3 1 
3; 
3% 
3; Y 
3 3 
31 
3 7 
3; 1 
. y 
; 4 
3 7 
3% 
3% 
3 7 
3 7 
3; 1 
3; 1 
3; 1 
3 1 
3 
3; 
3; 7 
3; 7 
3; 1 
3 1 
3; 3 
3 7 
3 1 
3; 7 
3 1 
3; Y 
3; 1 
3; 1 
3% 
3 1 
3; 7 
3; 7 
,; 
3 Y 
3 1 
3 7 
31 
; 7 
3 1 
3% 
3 7 
3 
3 1 
3; 7 
3 3 


ROUTINE MOUNT_ENCIPHER (ITEM_LIST, LIMIT, BUFFER, LENGTH) = 
‘+ 
! 

' FUNCTIONAL DESCRIPTION: 


This routine takes the parameters of the mount request 
and enciphers the parameters into a cluster-mount packet. 


CALLING SEQUENCE: 
MOUNT_ENCIPHER (ARG1,ARG2,ARG3,ARG4) 
INPUTS: 


ARG1 : Address of the item List 
ARG2 : Output buffer Limit 


OUTPUTS: 


02 00 CD 
oon 


IMPLICIT INPUTS: 


Sos 


VWEWN— 


None. 
OUTPUT PARAMETERS: 
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' 

: ARGS : Address of the output buffer to receive the 
cluster-mount packet 
i 
i 
i 
i 
i 
i 
i 
' 
i 
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ARG4 : Address of a longword to receive the length of 


448 the output buffer 


io ds): de > i > > 


IMPLICIT OUTPUTS: 
None. 
ROUTINE VALUES: 


Seescss 


a5 


1 : If successful 
SS$_BUFFEROVF : pneut yc tent internal buffer space, 
-e. length exceeds Limit 


on 


SIDE EFFECTS: 
None. 
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NOTES: 


This encipher routine takes the given mount item List and turns it 
into a cluster-mount packet of the form: 


H n Offset 
: codel { lent i O ITEM_LENG item_desc_1 
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1. This cluster-mount packet is to be sent to other nodes in 
the cluster and processed by CSP (the Cluster Server Process). 


2. The address in the item descriptor is ‘‘relocated'’ to be the 
offset from the beginning of the packet (i.e. self-relative). 
This is done so that when CSP gets the cluster-mount packet, 
it can simply add the packet address to the offset in the 


item desciptor to obtain the address of the string. 
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1 ~3007 138% 9 90 8 DISKSVMSMASTER:CMOUNT. SRCJVMOUNT.B32: 3° (14) 
Quneceweeweeesen + : 
; loftset to str! 8 ITEM_ADDR ‘ 
} 1 ____unused : 12 ITEM_NULL : 
; i code2 } Len2 i ITEM_LENG item_desc_2 : 
; ioftset to str2i ITEM_ADDR : 
i : unused {12  ITEM_NULL ; 
jeevcsesseccces -+ : 
i o . : 
i ; : 
\ teeees eoceeeeee- . 
{ 0 ! End of item decsiptors 
i ' str 1 H 
' teeeeceensenee- -+ 
' H eeeee H 
\ teececeneenenn-- + 
i 
' + 
i 
' + 
i 
! 
; 
; 
i 
' 
i 
' 
i 
i 
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BEGIN ! Start of MOUNT_ENCIPHER 
MAP 
ITEM_LIST : REF BBLOCK, 
BUFFER : REF BBLOCK; 
LOCAL 
ITEM : REF BBLOCK, ' Pointer to item descriptor 
PTR : REF BBLOCK, ' Pointer to output item desc 
STR_PIR : REF BBLOCK, ' Pointer to item string 
ITER_COUNT, ! Number of items in item List 
DEVICE COUNT. ! Device number index 
EXTERNAL 
MOUNT_OPTIONS : BITVECTOR VOLATILE; ! Parser option flags 


MACRO ITEM_LENG 
MACRO ITEM™CODE 


3:0: 


187083 


! Define buffer offsets 


H 8 7 
VAOUNT -Sep VAX-11 $-32 V4.0-742 
v04=002 13-Sep-1986 11:12:89 DLSKSVMEMASTERCCMOUNT. SRCIVMOUNT.B32¢87° (10), 
; 1881 WACRO ITEM ADDR = 4.0,32,08; | 
3 1 § ° MACRO HTER-Nur : $°6° 35: te 
; ' LITERAL ITER, Size = é;° | 
; 1885 ' 
3 ' é Count of number of items in the item List 
:1 
; 1 : ITEM = .ITEM_LIST; ! Point to the beginning of List 
; 1890 ITEM_COUNT ! Initialize counter 
: 1891 40 2 WHILE ( .1TEM LITEM_CODE) NEQ 0 ) DO 
7 1 3 41 BEGIN 
; 189 tg 1 TER. count sITEM COUNT + 1; ! Increment number of items 
3: 1894 4 ITEM"= .IT EM + ITER_SIZE; ! Bump item desciptor pointer 
: 2 re} END; 
: 189 54 
3 1398 59 Calculate space needed for the item descriptors 
; 1900 88 STR PTR = .BUFFER + (.ITEM_COUNT * ITEM size): ! Space necded for descriptors 
3 1901 550 STR_PTR CITEM CODED | = STR_PTR CITEM_LENG) = 0; / Mark end of descriptor area 
3 Ie 551 STR_PTR = .STR_PTIR + 4; ! Mark beginning of string area 
; 190 23¢ PTR’= .BUFFER;~ ! Mark begtanine of desciptor area 
3; 1904 55 ITEM = .ITEM_LIST; ! Point to the beginning of item List 
3; 1905 554 DEVICE COUNT = 0; ! Initialize device index 
: 12s 336 -LENGTA = 4; ! Initialize length (itmist stopper) 
: 1908 55 
3; 1909 228 ' For each item in the item List, copy the item descriptor and the 
3 13ie 228 item string to the output buffer 
; 1918 561 2 DECR J FROM .ITEM_COUNT TO 1 DO 
3; 191 266 BEGI 
3; 19146 56 SELECT .ITEM CITEM_CODE) OF 
3; 1915 564 SET 
3 ay 565 
: 1918 366 i sa atcha BEGIN 
: 1919 568 4 
3 + » 4 ? For DEVNAM: 
: 19 § 571 4 i a. Create item descriptor, relocate address 
3; 19 276 4 : 6. Compute length, return SS$_BUFFEROVF if appropriate 
3 + : a7 2 c. Copy device string from physical device descriptor 
: 19 575 4 BIND 
; 1% $ 278 2 DEV_DSC = PHYS_NAME C.DEVICE_COUNT * 2) : S$BBLOCK; 
: 9 8 sr 4 PTR CITEM_LENG) = antl DSC COSC$W_LENGTH); 
3; 19 579 4&4 PTR CITEM-CODE) = mis.0 VNAM; 
3; 1931 580 4 PTR ITER. ADDR] = mer PTR BUFF 
: 19 g 581 4 -LENGTH =~..LENGTH + ITEM. size + eTk CITEM_LENG); 
: 19 5 § 4 IF ..LENGTH GTRU .LIAIT 
; 19 5 4 THEN 
Be BB cus ST MER EERE 
: 1939 586 4 .DEV_DSC COSESA “POINTER, 


oO 


-Sep-1984 01:00: VAX=11 BLiss-32 V4.0-742 Page 58) 
Mirae 1§-sen-1984 91 90:28 DISKSVMSMASTER: CMOUNT. SRCIVMOUNT .B32: 8 (14 
; 0 

; 1338 ; 4 PTR CITEM_LENG, 

: 194 § 4 -STR_PTR); 

; i 3 DEVICE COUNT = .DEVICE_COUNT + 1; 

— 1 3 

:1 $3 ; 

1344 of tin cede BEGIN 

; 

; 1909 36 ¢ | For FLAGS: 

; 1308 3 ¢ i a. Create item descriptor, relocate address 

+ 1950 3 4 ! b. Compute length, return SS$_BUFFEROVF if appropriate 
> 1951 600 4 i ¢. Copy flags, clear NMTSV_CLOSTER bit, and 

; 1326 601 4 set MNTSY WOA'SIST (disables operator assist) 
198 $08 PTR CITEM_LENG] = ITEM CITEM LENG); 

; 1955 604 4 PTR CITEM-CODE) = MNTS_FLAGS; 

: 195 605 4 PTR CITEM-ADDR] = .STR-PTR - .BUFFER; 

: 1989 606 4 -LENGTH =~..LENGTH + ITEM_SIZE + .PTR CITEM_LENG); 
: 1958 $09 4 if ENGTH GTRU .LIMIT 

; 1980 609 4 eecite Ue SS$_BUFFEROVE ; 

+ 1961 

: 196 611 IN 

: TEMP_PTR = .STR_PTR : BBLOCK; 

: 1368 gig TEMP_PTR™= " 1TEM LITEM ADDR: 

: 1965 614 TEMP-PTR CMNTSV_CLUSTER] = 0; 

: 1 615 TEMP~PTR CMNTSV-NOASSIST) = 1; 

; 196 616 5 IF OT .MOUNT_OPTIONS COPT_GROUP) 

+ 1368 ga 8 TEMP_PTR CMNTSV_SYSTEM) = 1; 

: 196 

+ 1970 619 4 END; 

Be Be ew: 

: 197 6 . 

: 1994 6 : ; COTHERWISE) 

Be | BE por 

: 1977 6 6 4 : ALL others: 

3 5 

. ! . te item descriptor, relocate address 

: 1980 $56 4 ; b: ten A Length, return SS$_BUFFEROVF if appropriate 
: 138 6 9 4 ic. Copy item to output buffer 

: 19 631 4 i 

: PTR CITEM_LENG) = .ITEM CITEM_LENG); 

a. es era tlteRctObed = <LHER,ETEMcCobed; 

4 = oO e@ -_ : 

; 13 3 3 5 4 -LENGTH =~..LENGTH + ITEM_SIZE + .PTR CITEM_LENG); 
: 19 6 6 4 TF LENGTH GTRU .LIMIT 

: 19R0 é3 ¢ RETURN SS$_BUFFEROVE; 

:1 6 3 4 CHSCOPY (. ITEM ITER LENG), 

+ 199 640 4 giten ITEM“ADDR). 

: 1998 b4¢ 4 {TEM CITEM_LENG), 

+ 1994 643 4 -STR_PTR); 
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i FUNCTIONAL DESCRIPTION: 
This routine searches the 1/0 database for a mountable device 
and allocates she Ceyice. f it is not already allocated. If 
the mount operation is a private mount, an EX mode lock will 
be taken oul If the mount operation is a shared mount, a PW 
mode lock will be taken out. 
Note: this routine must be called in kernel mode. 

CALLING SEQUENCE: 


SEARCH_DEVICE (ARG1) 


pejofefeloflelelelelolololoro) 


INPUT: 
ARG1 : Index into device List. 
OUTPUT: 
68 
None. 
7 5 IMPLICIT INPUT: 
8 68 
9 687 Mount database. 
040 688 
041 689 IMPLICIT OUTPUT: 
bog 690 
04 691 The physical device name of the device will be set up in 
044 69 the mount data base, with the appropriate device descriptor 
045 69 set up in PHYS_NAME. 
046 694 
047 695 ROUTINE VALUE: 
048 696 
% 844 Assorted status codes. 
699 SIDE EFFECTS: 
700 
701 None. 
708 
70 NOTES: 


| 
ROUTINE SEARCH_DEVICE (J) = 
| 


To properly interlock the device in a cluster environment 

we must carefully take out the MOU$ interlock and the device 
lock to serialize the mounts in the cluster without deadlocks. 
Following is the algorithm used: 


Step 0: Lock 1/0 database; 
IOCSSEARCH (...); 
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If success 
then S$ 
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else FQ- | 
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$0: 


$1: 
$2: 
$3: 
$4: 
$5: 


$6: 


$7: 


$8: 
$9: 


$10: 


FO: 


Fl: 
F2: 
F3: 
F4: 
F5: 


Fé: 


F7: 


If device allocated 
“set $S$_DEVALRALLOC 
mark UCB as allocated; 

IOCSCVT_DEVNAM (...) to convert device name; 
Unlock 1/0 database; 
SGETDVIW to obtain allocation class name; 
SENQW MOUS Lock with LCKSM_NOQUEUE 
If success 

Exit Loop; 
If S58 PEVALRALLOC 

IOCSUNLOCK_DEV to dequeue device lock 

*¢ FOCSDALLOC_DEV to deallocate and release device lock; 
Wait delta time; 
SENQW MOUS Lock; 
$SDEQ MOUS Lock; 
Goto step 0; 
If ( not SS$_DEVALLOC ) 
or ( private mount ) 
or ( Sev ice_al located ) 


en 
Unlock 1/0 database; 
Exit loop; 


IOCSCVT_DEVNAM (...) to convert alloc class device name; 
Unlock 1/0 database; 

Wait delta time; 

SENQW MOUS Lock; 


Construct device lock; | 
SENQW device in CR mode with NOQUEUE; 


If failed 
hen 
Exit loop; 


~~ 


$DEQ device lock; 
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F8: $DEQ MOUS Lock; 
F9: Goto step 0; 


' 
' 
' 
! 
! 
' 
: Note: This algorithm does not handle simultaneous /shared mounts 
. from the same system. In this case, the first mounter will 
! mount the device, and the second mounter will fail with an 
‘ SS$_DEVALLOC error. To property serialize simultaneous 
shared mounts, another level of lock (the label lock) had 
1 
! 


SNS NNN 


COC O9 COCO O90008 NII 


SAME WN "OO OONIAULS wiry 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
| to be added. 
1 
1 
BEGIN 
788 
789 LOCAL 
790 SEARCH_FLAGS : BBLOCK (4), ! JOCSSEARCH routine flags 
791 uCcB : REF BBLOCK, ' Address of the UCB 
79 STATUS, ' Routine status 
79 SEARCH_STATUS, ' Final success status 
COUNTE ' Count number of iterations 
DEVICE_{TMLST1 : BBLOCK C(1 * 12) + 4] INITIAL 
item: allocation class plus device name 
(WORD (NAMEBUF_LEN-4) 
WORD (DVI$_ALCDEVNAMS 
LONG (ALLDEVNAM_BUF +45, 
, LONG (ALLDEVNAM_DESC), 
end of List 
LONG (0)); 


EXTERNAL 
: BBLOCK FIELD (DC) ' device value block context fields 
NS : BITVECTOR VOLATILE, ! Parser option flags : 
NG : VECTOR VOLATILE, ! Device name string descriptor 
CB : REF BBLOCK ADDRESSING_MODE (GENERAL); ! PCB address of current process 


PAEAEXQEMNAMAAA AAI BB BP PE EEE EW 


LINKAGE 
10C_SEARCH 2 


Daa 

— 

um 

~ 

mm 

—-D 
u 


: 2, REGISTER = 3, 


1OC_CVT_DEVNAM = 


me 

nm 

— 

-rmn 

“Dz 
i] 


REGISTER 
TER = 4: 

SERVE (2, 
eeetstee a = 1, REGISTER = 4, 
TER = 5; : 

RVE (2.3.4.5, 

REGIS 
TER = 


| 
i ed 


10C_LOCK_DEV 


‘ 
Sa 
.» 


za UDO 2D 


TER = 1, REGISTER = 
vE (4, 5), 
IOC_UNLOCK_DEV = JSB (REGISTER = 5), 

IOC_DALLOC_DEV = JSB (REGISTER = 4, REGISTER = 5) : 
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: 


v04-002 

: 318) 846 
: 188 . 1 
: $ias B38 
: 2186 i 
: 2187 5 
: 2188 § 
: 2189 8 

; 2190 4 8 
: $13) 26 
: : ne 
3 2196 Beg 
3 2195 84 

3; 2196 844 
3: 2197 845 
; 2198 846 
3; 2199 847 
; 2200 é 
: $503 850 
: $8 a 
3; 2206 o2¢ 
:; 2205 85 

3 soe 3855 
; 220 855 
: 2208 529 
3; 2209 285 

: 2210 858 
Bog 
i: 
; $51 2868 
3; 2216 864 
3: 2217 865 
3 2318 866 
: $535 $68 
3 8 869 
$556 
3 33 § 
3 5 

$ 6 4 
; 5 
? 


POPSPOPSPIPOMENINTNPINPP Pony 
w =SSa~N 
POPORSPORIPOPPNPoNoNonny 
‘C9 CD Cp Cp Co Cd G9 CD 0D CD: 
SAN NNN 


Ronofonononoronopononofpory 


Sep-19 
18-00-19 


NOPRESERVE (1,2,3,8), 


EXE_MAXACMODE = JSB (REGISTER = 0) : 
NOTUSED (2,3,4,5,6,7,8,9,10,11); 
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XTERNAL ROUTINE 
LOCK_10DB : ADDRESSING_MODE (GENERAL), 
Lock 1/0 database mutex 
UNLOCK_10DB : ADDRESSING_MODE (GENERAL) 
nlock the peeve 
IOCSSEARCH : IOC_SEARCH ADDRESSING _nODE ane 
$ h 1/0 database for device 


ear 
IOCSCVT_DEVNAM =: IOC_CVT_DEVNAM ADDRESSING “RODE ae ERAL 


1OCSLOCK_DEV 


et 
: I0C_LOCK_DEV ADDRESSING RODE (Gene 


expanded device name 
t the device lock 


out 
IOCSUNLOCK DEV : IOC_UNLOCK_DEV ADDRESSING. =nODe (GENERAL) , 


e the device lock 


Re 
IOCSDALLOC_DEV : IOC_DALLOC_DEV ADDRESSING =HODE (GENERA 


Dea 
EXESMAXACMODE : EXE_MAXACMODE ADDRESSING RODE. (GEN NERA 


ate device and device lock 
aximize access mode 


i Rebind things to make Life easier ( so we see them as their 


} real logical units). 


DEVICE STRING : BBLOCKVEC 
NAME _BOFFER : BBLOCKVEC 
: BBLOCKVEC 


Start of buffer 


MACRO STADR = 0,0,0,0%: 


TOR 
TOR 
TOR 


Define descriptor vector displacements 


MACRO LEN = 0.0.3 0%; 
MACRO ADDR = 4,0, OR: 
MACRO ILEN = 8,0,32,0%: 
LITERAL 


S 
Ss 
‘ 
i 
i 
i 
I 


RETRY_LIMIT = 1000; 


-FLAGS 32,0) = 0; 


ARCH 
CH~FLAGS Oorsi _MOUNT) = 1; 


E 
EAR 


DEVMAX 


DEVMAK, NAREBUF _LEN J, 


DEVMA 


! Item List returned length position. 


! Define retry Limit 


Initialize search flags 
Set flag to indicate searching for a mountable device 


f this is a private mount, set flag to take out an exclusive lock on 


I 
! the device. 
if ;MOUNT _OPT IONS COPT_NOSHARE } 


SEARCH_FLAGS CIOC$V_ALLOC) 


SLR a 2 Espa ob ees. 3 
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; 33 $ COUNTER = 0; ! Initialize counter ; 
: 2241 § S wHILE (1) 00 ! Forever do block : 
; tg 90 ; 
; 224 91 BEGIN : 
> 22446 9 : 
3 2245 9 LOCK IODB (); ! Lock 1/0 database ‘ 
: re 94 STATOS = IOCSSEARCH ( DEVICE STRING C.J, LEN], / Search device with proper flags ‘ 
: 226 95 . SEARCA_FLAGS, : 
: 2248 9 DEV hg ! Return lock value block ; 
; 2249 9 - SCASGL_CURPCB; : 
3 29 43 UCB ); ! Target device UCB : 
; 53 900 3 IF .STATUS | ; 
3 5 901 THEN | ; 
3; 2254 90 : 
; 2? st ? BEGIN ! IOCSSEARCH succeeded : 
3 2257 2905 4 i If the device is not already allocated, allocate the device by ; 
3 $28 a08 ? setting up the proper status in the 1/0 database. : 
: 2260 908 4 iF NOT .BBLOCK CUCB CUCBSL_DEVCHAR], DEVS$V_ALLI | 

3 $503 909 4 THEN 

i 3268 910 5 EGIN | 

3 § 6 2911 5§ UCB CUCBSB_AMOD) = EXESMAXACMODE (.CALLERS_ACMOD); ! Set access mode 

3 2264 $918 5 BBLOCK CUCB CUCBSL_DEVCHAR], DEVSV_ALL] = T; ! Set the device as allocated 

; 2265 913 5 UCB CUCB$W_REFC) =".UCB CUCBSW_REFC) + 1; i Bump reference count 

: $06 914 5 UCB CUCBSL_PIDJ = .SCHSGL_CURPCB CPCBSL_PIDJ; ! Set device owner 

; 226 915 5 SEARCH_STATUS = SS$_NORMAL; ! Set normal return status 

> 2268 gig 5 END | 

; 2269 917 4 SE 

3 $0 sole ? SEARCH_STATUS = SS$_DEVALRALLOC; ! Set proper return status 

; 37 3320 4 

3; 227 921 4 ' Set up physical device name in mount database (also set up the device 

; sie 3398 ? descriptor). 

; $e 935i 4 1OCSCVT_DEVNAM ( NAMEBUF _LEN, ' Output buffer length 

3 2277 925 4 NAME_BUFFER C.J, STADR], ! Gutput buffer address 

: 2278 926 4 -1 ' Format device name 

> 2279 927 4 UCB; i Address of UCB 

3 3 , 3 ? PHYS_NAME C.J, LEN) ); ! Returned length of device name 

: 8. ; 9 7 PHYS_NAME C.J, ADDR] = NAME_BUFFER C.J, STADR]; ! Set up device descriptor 

: 284 4 é 4 UNLOCK_10DB (); ! Unlock 1/0 database | 

: iy] P 2934 4 SGETDVIW ( DEVNAM = PHYS_NAME C.J, LEN], ' Target device descriptor | 

; 37 P 3 5 4 ITMLSt = DEVICE Ita sit, i Item List | 

; 34 ; ? ALLDEVNAM_DESC (0) = -ALLBEVNAM. DESC CO] + 4; ! Fix up Length to include MOUS | 

: 2291 939 4 ' 

; 4 940 4 ' Take out a lock on the allocation class device name. This will 

3 4, 3c) ? } interlock all mounts of this device. 


d 9 
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P 2943 4 STATUS = SENQW (LKMODE = LCKSK EXROOE . 
P 2944 & LKSB = Lock STATUS 
P 2945 & FLAGS = (LCKSM_ SYSTEM OR LCKSM_NOQUEUE), 
e ae$ 4 RESNAM = ALLDEVRAM_DESC, 
P 2947 & EFN = MOUNT_EFN 
348 4 ACMODE = PSLSC“EXEC); 
94 4 If .STATUS 
950 4 THEN 
951 BEGIN ! MOUS interlock granted 
826 STATUS = .SEARCH_STATUS; ! Return proper status code 
95 EXITLOOP; ' Get out of the loop 
320 END ! End of MOUS success story 
955 4 ELSE 
328 BEGIN ! MOUS interlock failed 
95 LOCK_IODB (); ' Lock 1/0 database 
938 IF SEARCH STATUS EQL SS$_DEVALRALLOC | 
44 IOCSUNLOCK_DEV (.UCB) ! Release device lock 
2e6 5 IOCSDALLOC_DEV (.SCHSGL_CURPCB, .UCB); ! Deallocate device and 
96 ! release device lock 
+ ¢) UNLOCK_IODB (); ! Unlock 1/0 database 
96 WAIT_DELTA (. COUNTER); ! wait a while | 
P 2968 SENQW (LKMODE = LCKSK EXMODE, ! Enqueue MOUS Lock again 
P 2969 LKSB = LOCK_STATUS, 
P 2970 FLAGS = LCKSA_SYSTEM 
P 2971 RESNAM = ALLDEQNAM_DESC, 
P 2972 5 EFN = x 
973 5 ACMODE = PSLSC~EXEC); 
97% 5 $DEQ ( LKID = .LOCK_STATUS [1) ); ! Dequeue MOUS Lock 
376 END ! End of MOUS failure block 
978 4 END ! End of IOCS$SEACH success block 
1 979 & 
§ 980 ; ELSE . 
ez 981 ; 
$ 38 2 BESIN ' JOCSSEARCH failure block : 
984 IF ( .STATUS NEQ SS$_DEVALLOC ) ' If not SS$_DEVALLOC ; 
985 OR ( .MOUNT OPTIONS [COPT_NOSHARE]) ) ! or this is a private mount ‘ 
:) § OR ( .BBLOCR C UCB CUCBSC_DEVCHAR], DEV$V_ALL J] ) ! or an allocated device : 
9 4 THEN ! Get out ‘ 
? 3 ; GNCOCK _I0DB () | P 
; 990 EXITLOOP; 
4 END; 
4 4 
5 4 
§ 4 ! We have a valid UCB address, get the allocation device name to 
H 2 derive the MOUS interlock. 
9 4 IOCSCVT_DEVNAM ( NAMEBUF _LEN-4, ' Output buffer Length 
50 4 ALLDEVNAM_BUF +4, ' Output buffer address 
51 4 , ' Format allocation class device name 


3 § 4 .UCB; ' Address of UCB 

; 4 ALLDEVNAM_DESC [0)); i Returned Length of device name 
; 2 8 ? ALLDEVNAM_DESC CO] = .ALLDEVNAM_DESC [0] + 4; ! Fix up Length to include MOUS 
; § ¢ ? UNLOCK_I0DB (); ! Unlock 1/0 database 

; 4 WAIT_DELTA (. COUNTER); ! Wait a while 

3 28 097 4 

; 2560 $8 4 ' 

: 1 sts 2 Take out a lock on the allocation class device name. 

3 5 Pp Bi) 4 SENQW (LKMODE = LCKSK_EXMODE, 

3 P \§ 4 LKSB = LOCK_STATUS, 

3 5 & 4 4 FLAGS = LCKSA_SYSTEM 

; P 3014 4 RESNAM = ALLDEQNAM_DESC, 

3 P 3015 4 EFN = MOUNT_E 

: 016 4 ACMODE = PSLSC~EXEC); 

; he ee 

3 019 4 ' Construct the device lock name and take out the device lock 

3 bse ? in CR mode with NOQUEUE. 

3 0 ¢ BEGIN 

3 0 

: 024 LOCAL 

3 025 DEVLCKNAM_BUF VECTOR CNAMEBUF LEN, BYTE) 

: 0 $ INITIAL (BYTE('SYS$', REP NAMEBUF _LEN=4 OF (*° '))), 

FH 0 DEVLCKNAM_DESC : VECTOR (C2, LONG] 

: 2380 028 5 INITIAL (6, DEVLCKNAM_ BUF), 

; $35 b¢8 é DEVLCK_STS VECTOR C2, LONG); 

3 ter Og : DEVLCKNAM_DESC [OJ] = .ALLDEVNAM_DESC [0]; ! Set up device lock descriptor 
; 383 O38 5 CHSCOPY ( .ALLDEVNAM_DESC 0} - 4, ' Length of input string 

3 369 ate ; eALLDEVNAM_DESC (1) + 4, : Start of alloc name string 

; 2388 036 -ALLDEVNAM_DESC £0} - 4, ' Length of output string 

3 $90 SH 2 -DEVLCKNAM_DESC C1] + 4 ); ! Start of target string 

3 331 P 3039 5 STATUS = SENQW (LKMODE = LCKSK_CRMODE, ' Enqueve device lock in CR mode 
3; 239 P 3040 LKSB = DEVLCK_STS ' Lock status block 

3 9 P 3041 FLAGS = (LCKSM SYSTEM OR LCKSM_NOQUEUE), ! Return if not available 
3: 2394 P ote RESNAM = DEVLCKRAM_DESC, ! Device lock 

: 2395 04 EFN = MOUNT_EFNJ; 

3 a8 44 5 

; 9 045 IF .STATUS 

; 2398 bee THEN 

3 99 ! 

3; 2400 048 ! Device lock in CR mode granted. This implies that the device 

3 $33 $3 is not allocated. Release beth locks and try again. 

: 051 6 BEGIN 

3 2404 O2¢ 6 $DEQ ( LKID = .DEVLCK_STS Ch ); ' Release device lock 

; 053 6 $DEQ ( LKID = .LOCK_STATUS (1) 5; i Release MOUS Lock 

3 054 END 

3 B28 

$ 56 ! 
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; 
16-Sep-1984 
13-328718 4 


in CR mode is not 


ze 


an SS$_DEVALLOC status. 


S$ = SS$_DEVALLOC; 
OP; 


mmuog.-------- 


i Do a sanity check on how many times we have 
too many times, give up with an error. 


COUNTER = .COUNTER + 1; 
IF, COUNTER GEQ RETRY_LIMIT 


BEGIN 
STATUS = SS$_DEVNOTMOUNT; 
EXITLOOP; 


IF NOT .STATUS 
HEN 


72:38 


DISKSVMSMASTER: (MO 


grantee. This will happen if the 
ady taken out in EX mode, i.e. the device is allocated. 


Set return code 
Get out 


! End of block defining DEVLCK 
! End of IOCSSEARCH failure block 


gone thru this loop. If 


Update counter 
If loop thru too many times 
give up with an error 


End of forever block 


If SEARCH_DEVICE failed 


BEGIN 
LOCAL 
ITMLST2 : BBLOCK C(1 * 12) + 4) INITIAL 
i item: device name 
(WORD (NAMEBUF_LEN), ' Device name buffer length 
WORD (DVIS$S_DEQNAM), ' Device name item code 
LONG (0), : Device name buffer address 
, LONG (0), ! Returned device name Length 
i end of List 
"LONG (0)), 
LOC_STATUS; ' Local status work 

' 

: The IOCS$SEARCH routine failed, use input device string to get the 

: device name. Also set up the device descriptor. This is necessary 

: so Operator Assist can output the message with a device name. If 

: the SGETDVI failed, we've got some real problems, return the status 

; as the status of routine SEARCH DEVICE. 

iTMLST2 paper = NAME BUFFER C.J, STADRJ; ! Set up device buffer address 

ITMLST so = PHYS_NAME C.J, L ei ! Set returned Length 

PHYS_NAME C.J, ADDR] = NAME_BUFFER [.J, STADR]; | Set up descriptor 
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IF NOT .LOC 
THEN 
END; 


RETURN 
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-PSECT S$PLITS,NOWRT ,NOEXE,2 


. ] 
H 9 | 
16-Sep-1984 01:00: VAX-11 Bliss-32 V 742 £0 
13280871382 91:00: 3g DISKSVMSMASTER: chouNT. SRCIVMOUNT.B32; Aidt wad 
-EXTRN LOCK_IODB, UNLOCK_IODB | 
-EXTRN IOCS$SEARCH, IOCS$COT_DEVN 
“EXTRN IOCSLOCK bév TOCSURLOCK D DEV 
-EXTRN LOCSDALLOC rev EXESMAXACMODE | 
“EXTRN SYS$GETD 
.PSECT $CODES,NOWRT,2 
orn See weston $ Re. R3,R4,R5,R6,R7,RB,RI,R10,R11 2659 
e e 3 
SE BB AE 9 00002 ov “73s 
38 AE 00000000' EF 0 MOVC 6. “Ane DEVICE_ITMLST1 + 2806 
E ba 000F CLRL SEARCH + 287 
bE 80 &8F 0011 BISB2 #128, SEARCH FLAGS + 287 
04 00006 CF 4 Fi 015 BBC #4, MOUNT OPT 1$ + 2883 
01 AE 4 88 00018 BISB2 #4, SEARCA_ FLAGS+4 + 2885 
9 D4 OOOTF 18 CLRL COUN ER ; 2887 
57 04 AC BO 0021 MOVL + 2894 
04 A OO00GCF4? 7E 00025 MOVAQ dévice STRINGLR7), 4(SP) : 
000000006 0 00 FB 000 ¢ 2$ CALLS #0, LOCK K_1908 + 2893 
& 00006 CF i 00 MOV DEV_CTX, R + 2894 
54 000000006 60 00 000 MOVL SCHSGL ~tunice, RG : 
52 6E DO 0003F MOVL § SEARCH™FLAGS, R2 : 
51 04 AE 00 00042 MOVL 4(SP),~R1 : L! 
000000006 Q 16 00046 JSB TOCSSE ARCH ; L] 
SA DO 0004C MOVL RO, STATUS ; L! 
56 51 D9 O04F MOVL 1, R6 : S! 
03 SA 5 06 22 BLBS STATUS, 3$ : 2900 S| 
0117 31 0005 BRW 9$ ; 
3A ABO 90038 3$ TSTB 58(UCB) 3 2908 S| 
2A 19 00058 BLSS 0s 4$ ; S| 
50 00000000" EF D0 0005p MOVL CALLERS ACMOD, RO > 2911 $) 
000000006 60 16 00064 JSB EXE SMAXACM ; u] 
SFA 50 90 90064 MOVB RO, _-95¢ cuc Be ; 
3A AG 80 BF 88 O06E BISB2 #128, 58(UCB) ; 2912 ul 
A6 B6 000 INCW ©. 92 (U¢B) > 291 L! 
50 9 000000006 00 DO 00076 MOVL sCusct ~CURPCB + 2914 $] 
2c AO DO 0007 MOVL  96(RO)> 44(UC on ; $| 
88 1 00 0008 MOVL #1, S SEARCH. STATUS > 2915 $) 
5 11 000 BRB 5$ > 2908 
58 0641 =F 3¢ 0087 4$: MOVZWL #1601, SEARCH_STATUS : 2918 
= 3 00000000°EF £3 9 0095 ™ NOVA he ai ePeacrz] R1 ‘Booe 
55 ee i $3 VL UCB “RS : 2928 
4 1 ce 98 MNEGL #1, R : 
0 0 D 9E MOVL #32, RO F 
-_ Boounbee® 9 16 OO0A1 JSB 10¢$cvT DEVNAM ; 
0000000'EF47 7F OOOA7 PUSHAQ PHYS NAMELR7]) ; 
51 gO AE MOVL RI, S(SP)+ ; 
5. 99 9900 00° EF EF47 7F 0008 PUSHAQ PHYS NAME+4(R : 2930 
9 0000000' EF 43 9€ 0008 VAB NAME gBURFER Mf , acSP)+ ; 
000000006 9 FB 000C CALLS #0, ONLOCK_I0DB ; 3932 
—E 7C 000C CLRO 20 = ( §P) > 2936 
os AF OOF boots SUSNAB DEVICE ITMLST1 ; 
00000000" Fe? 3 cE PUSHAQ PHYS NAMECR? ; | 
| 
| 
j 


a 4 


9 
VMOUNT 18-5e -1984 01:00: VAX-11 Bliss-32 V4.0-742 Page 71 
v04-002 1 ta 1 9:90:28 DISKSVMSMASTER:CMOUNT. SRCIVMOUNT.B32:3> (15) 
7 1A 7D 000D VQ #26, =<SP) ; 
90 990006 0 8 FB 3 CALL a5° SYSSGETDVIW : 
0000000' cr 4 DF ADDL2 #4, ALLDEVNAM_DE + 2937 
1 7D ES vO #1. =(SP) + 2948 
E 7C OO0E CLRQ 0 = ( §p) : 
7E 7C OOOEB CLRQ = =(SP) : 
00000000' FF 9F OO0E PUSHAB ALLDEVNAM_DESC : 
4 po F PUSHL : 
00000000' Ff F OOOF PUSHAB LOCK STATUS : 
5 DD 000FB PUSHL @# : 
1A DD 000FD PUSHL 426 ; 
000000006 00 : F FF CALLS #11, SYSSENQW : 
A D MCVL RO, STATUS : 
5 AE 1 BLBC STATUS, 6$ + 2949 
A : DO 0010C¢ MOVL § SEARCH’ STATUS, STATUS + 2952 
79 11 OO10F BRB 11$ + 2951 
000000006 00 90 FB 00111 6$: CALLS #0, LOCK_I0DB + 2957 
00000641 F B D1 00118 CMPL SEARCH STATUS, #1601 : 2958 
08 if O11F BNE ; 
55 6 DO 00121 MOVL UCB, RS + 2960 
000000006 00 16 00124 JSB OCSUNLOCK_DEV ; 
10 11 OO12A BRB $ : 
55 56 DO 0012C 7$: MOVL UCB, RS + 2962 
54 000000006 00 DO 0012F MOVL  SCH$GL_CURPCB, R4 : 
000000006 00 16 00136 JSB 1OCSDACLOC_DEV ; 
000000006 00 00 FB 0013C 8$: CALLS #0, UNLOCK~ + 2964 
9 DD 0014 PUSHL COUNTER + 2966 
00000000v EF 01 FB 0014 CALLS #1, WAIT_DELTA : 
E 01 7D 0014¢ MOV #1. -(SPS : 2973 
7E 7C OO14F CLRO 0. = (§P) : 
7E 7C 00151 CLRQ  =(SP) : 
00000000" EF 9F 00153 PUSHAB ALLDEVNAM_DESC ; 
10 pp 0159 PUSHL : 
00000000' ai F 1 B PUSHAB LOCK STATUS : 
5 DD 00161 PUSHL # ; 
1A DD 0163 PUSHL #26 ; 
000000006 00 0B FB 0016 CALLS #11, SYSSENQW : 
00D1 31 0016C BRW > 2974 
00000840 = 8F SA D1 O16F 98: CMPL STATUS, #2112 > 2984 
08 01 : BNEQ : 
05 00006 CF 04 f 017 BBS #4, MOUNT_OPTIONS, 10$ > 2985 
3A O17E TSTB © 58 (UCB) + 2986 
OA 18 00181 BGEQ 128 : 
000000006 00 00 ; 183 108: CALLS #0, UNLOCK_10DB : 2989 
OODF 18A 118: BRw 1 : 2988 
1 00000000° EF 18D 12$:  MOVAB ALLDEVNAM_BUF+4, R1 : 2998 
5 6 DO 001 MOVL , RS : 2997 
4 1 0 197 MOVL #1, R4 : 
0 1 p 19A MOVL RO ; 
000000006 19 JSB Locscvt DEVNAM ; 
0000000' EF DO OO1A MOVL , ALLO _DESC ; 3001 
900000 ' FF CO OO1AA ADDL2 #4. ALLDEVNAM~DESC : 3002 
G6 60 0 FB 001B1 CALLS #0, UNLOCK_1008 > 3004 
DD 00188 PUSHL TER : 3006 
00000000v_ EF 1 £B OO1BA CALLS #1, WAIT_DELTA : 
E 1 7D 001C1 MOVG #1. -(SPY > 3016 
E 7C 001C4 CLRQ 2s = ( §P) : 


9 
1b-5e -1984 01:00: VAX=11 $-32 V4.0-742 
oer Pa a Moe HS ee ee 
7E 7C 001C CLRQ = = (SP) ; 
00000000' fF OF if8 PUSHAB ALLDEVNAM_DESC : 
0 po Ice PUSHL : 
00000000" EF 9F 001D PUSHAB Lock. STATUS : 
2 a | 
ae 32999000 00 08 FB 1DA CALL Hit. SYSSENQ F 
18 0000000' EF 28 001E1 MOVC 2; P.AAD DEVLCKNAM _BUF + 3026 
10 AE ps 1EA CLRL_ DEVLCKNAM_DESC : 
16 AE 18 AE TED MOVAB DEVLCKNAM~BUF, DEVLCKNAM_DESC+4 : 
10 AE 00000000° FF DO OO1F MOVL_  ALLDEVNAM~DESC, DEVLCKNAM_DESC + 3031 
52 00000000' gf 4 C3 OO1FA SUBL3 #4, ALL OE UNAM bESC, R + 3033 
1 00000000" EF »D 02 MOVL ALLDEVNAM. DEST+4, RI + 3034 
50 14 AE 0 : MOVL DEVLCKNAM D SC+4, RO : 3037 
04 Ad 04 Al 3 MOVC3 4(R1)> &(RO) : 
—E 7C 0001 CLRO Ree P) + 3043 
7E 7C€ 0021 CLRQ (SP) : 
7E 7C 00217 CLRQ = =(SP) : 
28 «AE OOF 00219 PUSHAB DEVLCKNAM_DESC ; 
14 DD 0021C¢ PUSHL # ; 
28 «AE «OOF OOCTE PUSHAB DEVLCK_STS ; 
01 odd 00221 PUSHL #1 é 
1A DD 00223 PUSHL #26 é 
000000006 00 8 FB 00225 CALLS #11, SYSSENQW : 
SA DO 0022¢ MOVL RO, STATUS ; 
21 A 59 0022F BLBC STATUS, 14$ + 3045 
7E 7C 002382 CLRQ = =(SP) : 3052 
7E D4 00 CLRL 3s = (SP) ; 
18 AE DD 00236 PUSHL DEVLCK STS+4 ; 
000000006 00 04 FB 00 9 CALLS SYSSDEQ : 
— 7C¢ 00 40 13$: CLRO oeees : 3053 
7E D4 0024 CLRL = =(SP) : 
00000000" EF DD 00244 PUSHL LOCK STATUS+4 : 
000000006 00 4 FB 00 4A CALLS #4, SYS$DEQ ; 
7 11 51 BRB 15$ 3 3045 
SA 0840 8F 3C 00253 14$:  MOVZWL #2112, STATUS : 3062 
lg 11 00258 BRB 17$ : 3061 
2 D6 3A 15$ INCL UNTER : 3074 
000003E8  8F 9 D1 CMPL COUNTER, #1000 : 3075 
03 18 026 BGEO ~=—s«éd16$ : 
FDC4 ; 6 BRW 2$ ; 
SA 7c) «OF ODA 168 MOVZBL #124, STATUS : 3078 
46 A 6C 17$ BLBS STATUS, iss : 3085 
28 ag 00000000" EF 1 of MOVC3 #16, BAA , ITMLST2 : 3101 
5 7 0 § ASHL R7. R : 3111 
0 00000000'EF4 3 7¢ MOVAB NAME BUFFERCR2], RO F 
2c A 5 p Bs MOVL RO, Rit, LST2+4 ; 
0 AE 90000000 EF 4 E MOVAQ PHY NARE CR? ITMLST2+8 : 311 
00000000'EF47 7F 00291 PUSHAQ PHYS “NAME SEER?) : 311 
9 30 pO 98 MOVL RO, @(SP)+ ; 
E 7C 002098 CLRO2O = ( §P) : 3117 
7E 7C€ 00290 CLRQ 2s = (SP) : 
38 AE 9F 0029F PUSHAB ITMLST2 F 
18 AE pp A PUSHL  24(SP) ; 
000000006 op O8 FB OOSA Oats | Phe systertovIY : 
8 i EB AF BLBS = LO¢_STATUS, § : 3119 


9 
Vou-002 if: Sp-19Be 11:92:89 — BISKSUMGHASTERSCMOUNT.-SRcaVMOUNT .03208°° (155 
i PR AERR vax, AML ‘SfnSltTage 147 18 
; Routine Size: 697 bytes, Routine Base: S$CODE$ + 0942 


: $080 3186 1 


A - onl 
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VMOUNT 18-Sep-19 4 9: 0:5 VAX-11 Bliss-32 V4.0-742 Pqge 74 
12-Sep-1984 11:14:5 DISKSVMSMASTER: CMOUNT.SRCJVMOUNT .B32; (16) 


3 re ¢ } 8 } GLOBAL ROUTINE DEQ_MOUNT_LOCK : NOVALUE = | 
3; 24 1351 1 tee 

; 2485 1 § 1! 

: ? : ? ! } FUNCTIONAL DESCRIPTION: 

3 tae } 5 } This routine dequeus the mount interlock, if it exists. 

3; 2490 1 § 1 ! CALLING SEQUENCE: 

3; 2491 138 1! 

: re 3 ! } KERNEL_CALL ( DEQ_MOUNT_LOCK ); 

3 2496 141 #1! This routine is called in kernel mode because the mount interlock 
3; 2495 126 1! is taken out in kernel mode. 

3 2496 145 1! 

3 2497 144 1 =! INPUT: 

3 2498 145 3 } 

3 2499 66 . 3 None. 

; 2500 147 1! 

; 2501 148 1 ! OUTPUT: 

; 206 3162 1! 

3; 250 150 1! None. 

3 2504 131 7! : 

3; 2505 136 1 ! IMPLICIT INPUT: 

3; 2506 1535 1! 

3; 2507 154 1! LOCK_STATUS : Lock status block of the mount interlock 
; 2508 3155 1! 

3; 2509 156 1 ! IMPLICIT OUTPUT: 

3; 2510 187 1! 

3: 2511 168 1! None. 

3 21g 189 1! 

3: 251 160 1 ! ROUTINE VALUE: 

3 2514 418) 1! 

3; 2515 166 1! None. 

3; 2516 165 1! 

3 2517 164 1 ! SIDE EFFECTS: 

3; 2518 165 1! 

3; 2519 198 1! Mount interlock released. 

: 2520 3167 1! 

3; 2521 198 1 !e- 

3; 25 ¢ 169 1 

3 3 ? 100 BEGIN 

3 2525 \7e IF .LOCK_STATUSC1] NEQ 0 ' If mount lock exists, 
; ; $ Wt THEN $DEQ (LKID = .LOCK_STATUS([1)); ! Release it 

3; 2528 175 

: 2529 176 RETURN; ! Back to caller 

; 2530 177 END; ! End of routine DEQ_MOUNT_LOCK 


0000 000 -ENTRY DEQ _ MOUNT LOCK, Save nothin ; 3129 
50 00000000' Ff 0 09009 MOVL LOCR_STATOS#4, RO 2 ° 3 3133 
i) 00 BEQL $ 3 


835-1984 01:00: AX-11_ Bliss-32_V4.0-74 
voueb02 oreeer TSBs P1E92:8S | NE kuw SAAS FERS chgoNT SRcavmounT 832" 9%° «153 
hie te i 
1 


000000006 00 : FB ae, SYSSDEQ 


i 3177 
; Routine Size: 25 bytes, Routine Base: SCODES + OBFB 
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VMOUNT 16-Sep-1984 01:00: VAX-11 Bliss-32 V4.0-742 Page 76 
V04-002 13x e= 188s FT 9kias | NbdnAAS FERS cHouNT eecavmount 3268%* c19s 
3 3 179 «#1 
: | ! 9 | ROUTINE WAIT_DELTA (N) : NOVALUE = 
: 1 : 1 !+¢ 
: 2537 1 3 
3 2 5 : : : FUNCTIONAL DESCRIPTION: 
; 2540 1 § 1! This routine goes into fhe waitfor state for a small period of 
3; 2541 1 1! time. This wait per ice s introduced to give simultaneous mounts 
$ 206 188 1! a chance to get both the device lock and the mount interlock. 
3 254 189 1! The amount of time spent in waitfor state is node-dependent (e.g. 
3 25446 190 1! based on the sceayatente). The wert qvae also varies from one 
3 at? 133 : call to the next (with a small positive or negative bias). 
3; 2547 138 1 ! CALLING SEQUENCE: 
3; 2548 194 1! 
3: 2549 195 1! WAIT_DELTA (ARG1) 
; 2550 138 1! 
3; 2551 197 1 =! INPUT: 
3 22¢ 198 1! ; 
3 237 $200 ! ARG1 : Number of times this routine has been called. 
3; 2555 201 1 ! OUTPUT: 
3; 2556 3 o¢ 1! 
3 2557 350 1! None. 
3; 2558 061! 
3; 2559 3205 1 ! IMPLICIT INPUT: 
; 2560 3508 1! 
3; 2561 ; oy 33 None. 
3; 256 208 1! 
3; 256 $595 1 ! IMPLICIT OUTPUT: 
3: 2564 210 1! 
3; 2565 3211 1! None. 
3; 2566 3 \ 13 
3; 2567 ; 1 1 ! ROUTINE VALUE: 
; 2568 14 $1! 
3 2569 : + ee None. 
3; 2570 1g 1! 
3: 2571 17 1°! SIDE EFFECTS: 
§ 276 18 #1! 
s 237 19 1! None. 
> 2574 220 1! 
3 37? ; 1 ' ten 
: 378 ; 3 BEGIN 
3; 2578 4 
: 2579 5 OWN 
; 2580 $ SCSSYSID, 
; 2581 XDELTA, 
§ o8¢ 3 BIAS, 
3; 25 GETS_ITMLST : BLOCK ((1#12)+4, BYTE] INITIAL 
3 2584 0 ( WORD (4) 
: 2585 31 WORD (SYI$_SCSSYSTEMID), 
3 236 § LONG (SCSSYSID), 
3; 25 3 LONG (0) 
: 25 34 LONG (0)5; 
3; 2589 5 LOCAL 
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! Set up some initial values for the first call to this routine. 


10 
18-5e 1984 01:00: VAX-11 Bliss-32 V4.0-742 P 7 
1 30071984 91:90:88 D1 SKSVMSMASTER: CMOUNT. SRCIVMOUNT 832537" (175 


STATUS, 
DELTA : VECTOR C2,LONG) INITIAL (-1,-1); 


if .N EQL 0 
THE 


BEGIN 
SCSSYSID = 0; 


STATUS = SGETSYIW ( EFN MOUNT_EFN 
ITML 


ST = GETS_TTMLST ); 
' 
If the SGETSYI failed or scssystemid is zero, use a default value. 


IF NOT .STATUS 
= ~-SCSSYSID EQL 0 
SCSSYSID = 64; 


! 
Comput the initial delta time. 


XDELTA = .(SCSSYSID)<0,7>; 
! 


i Set up the bias. We set up 2 positive bias if the initial value 
is ‘‘sufficiently’® small. Otherwise, we set up a positive bias. 


if .XDELTA GEQ 64 
THEN 


The actual delta is the previous delta plus the bias, i.e. 
(previous_delta+bias) * 1 million * 100 nanosecond 
This gives the range of 
scssystemid<0,7> = 1+bias -1 second + bias 
scssystemid<0,7> = 128+bias 12.8 seconds + bias 
e bias is ¢ or - .1 second, depending on the previous delta time. 


The b 
If delta is Large. we set up a negative bias for the next iteration. 
If delta is small, we set up a positive bias for the next iteration. 


C! 
C 
C 
C 
C 
E 
E 
E 
E 
E 
E! 
E| 
E! 
El 
El 
El 
E| 
El 
E| 
El 
E| 
E! 
E! 
E| 
E! 
E! 
E| 
E| 
E 
E 
E 
E 
E 
E 
E 
E| 


fname J oe ee ee eT re in Bede ae ee | 
| 


voe=002 ~Bep=1984 11:14:58 DISKEVMSMASTERSCMOUNT. SRCIVMOUNT 832089" (175 ’ 
: ol 33 if -XDELTA GEQ 128 ! Large xdelta, set negative bias 

: ess ot BIAS = - 1; | 
; 3 IF .XDELTA LEQ 10 ! Small xdelta, set positive bias 

; 6 § $3 BIAS = + 1; | 
; 635 83 XDELTA = .XDELTA + .BIAS; ! Compute new xdelta | 
; 637 08 DELTA CO) = .XDELTA * (-1 * 1000 * 1000); ! Compute delta in 100 nanoseconds 

; 635 p $305 $ status = SSETINR CEFN = MOUNT_EFN, ! Set timer 

: ro¢ 8S DAYTIM = DELTA ); 

ee BF Heist 

66% 10 SWAITFR ( EFN = MOUNT_EFN ); | Wait 

: see? 3318 1 ENDS ios of seetien WAIT_DELTA 


-PSECT SOWNS,NOEXE,2 
00D0C —— 
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E 
E 
E 
E 
E 
E 
E 
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E 
E 
E 
E 
E 
E 


.BLKB 4 
00D10 XDELTA: .BLKB 4 
00014 BIAS: .BLKB 4 
0004 00018 GETS_ITMLST: 
~ WORD 4 : 
1065 OODIA ~WORD 4197 : 
00000000" 00D1C¢ [ADDRESS SCSSYSID : 
00000000 00020 :LONG 0 : 
00000000 00024 -LONG 0 ; 
-EXTRN SYSSSETIMR, SYSSWAITFR 
.PSECT SCODE$,NOWRT,2 
0004 00000 WAIT_DELTA: 
.WORD Save R2 : 3180 
2 00000000' EF i 99002 MOV XDELTA, R2 ; 
E 4 C2 000 SUBL2 #4, SP : 
E 1 CE 990¢ MNEGL #1. DELTA : 3223 
A MNEGL #1. DELTA+ ; 
04 AE 1 CE 0000F E 1 4 
04 AC D 13 ™STL. ON : 3242 
37 (1 18 BNEG 4$ ; 
FC A p4 1 CLRL SCSSYSID : 3346 
7E 7¢C 00018 CLRO 20 = (SP) : 3249 
3 4 00010 CLRL = = (SP) ; 
08 Ad 99F OOOTF PUSHAB GETS _ITMLST : 
7E 7¢ 2 CLRQ = = (SPT ; 
000000006 4 pe 6 4 CALS 55° SYSSGETSYIW : 
9 th £9 D BLBC ~—_ STATUS, § > 3255 


16-Sep-1 1: VAX-11 Bliss-32 V4.0-742 ~ 
1p-te ty fs 9} +09: § DI SKSVMSHASTERSCMOUNT. SRCIVMOUNT.B32; rye z ; 

FC AR OS Ist — $¢SS¥SID ; 3256) s 

FC OA 40 tf 9A 1$: MOV ZBL #64, scss YSID : 58 E 

62 FC A g 9 EF A 2$: EXT2V é sc$svSID, XDELTA : 36 E 

F D} 4 cHeL XDELIA. : 3269 3 

04 A2 ' fF 4 MNEGL #1, BIAS + 3271 ; 

4 2 1 DO 00048 3$: MOVL #1, BIAS + 3273 E 

00000086 BF rf D4 H i$: CMPL XDELTA, #128 : 3293 : 

04 A2 i ¢ MNEGL #1, BIAS + 3295 E 

OA 2 sf 8 i 5$: CMPL XDELTA, #10 : ; 97 E 

4 14 0005F BGTR 6 ; E 

ve é3 04 RD c9 He 6$ ADDL BIAS. RDELT : $37 E 

6E 62 FFFOBDCO gf : 0069 } MULL #1960000, MNDELTA, DELTA : 3303 E 

—E 7C 00071 CLRO 3 3306 E 

08 AE 9F 00073 PUSHAB p SrA : E 

1A DD 007% PUSHL #26 : E 

000000006 00 oe FB 0007 CALLS #4, SYSSSETIMR : E 

09 0 €9 0007F BLBC STATUS, 7$ : 3308 E 

1A DD 00082 PUSHL #2 ; 3310 E 

000000006 00 01 FB 00084 CALLS #1, SYSSWAITFR : E 

04 00088 7$ RET : 3313 e 

; Routine Size: 140 bytes, Routine Base: S$CODE$S + 0C14 . 

E 

; 2668 3314 1 E 

3; 2669 315 1 END E 

: 2670 3316 0 ELUDOM E 

E 

E 

-EXTRN LIBSSIGNAL, LIBSSTOP 4 

; PSECT SUMMARY e 

; Name Bytes Attributes : 

$ $GLOBALS 1672 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) E 

> $SCODES 3232 NOVEC.NOWRT. RD. EXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(O) E 

> $PLIi$ 96 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) E 

: $OWNS 3368 NOVEC, WRT. RD .NOEXE.NOSHR. LCL. REL. CON.NOPIC.ALIGN(2) e 

& 

E 

E 

: Library Statistics : 

et dee Bee eee eee Symbols -------- Pages Processing E 

: File Total Loaded Percent Mapped Time E 

;  _$255$DUA28:(SYSLIBILIB.L32;1 18619 122 0 1000 00:01.8 

| 


13s 8ob- 198s P4:92:8s UN cdiwSmaS ERs chou. ShcavmounT.832-8%° (19, 


; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:VMOUNT/OBJ=OBJ$:VMOUNT MSRC$: VMOUNT/UPDATE=(ENHS$: VMOUNT) 
; pisces ae Ts ie + 5136 data bytes 


3 Elapsed. Time: 

3; Lines/CPU Min: 

; Lexemes/CPU-Min: 28} 
5 ry Used: 347 5196, 
; Compilation Complete 
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